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

Вниз

Плавный GrayScale...   Найти похожие ветки 

 
вурдалак   (2006-01-28 07:11) [0]

Подскажите как реализовать эффект подобный WinXP при нажатии Пуск -> Выполнить снимается screenshot раб. стола и он начинаем медленно тускнеть на заднем фоне пока не становится оттенками серого.

Мне данный эффект надо просто применить к bitmap"у. Именно плавное потускнение.


 
вурдалак   (2006-01-28 17:17) [1]

нашел алгоритм преобразования цветного изображения в grayscale, но как это сделать плавно? а-ля M$


 
antonn ©   (2006-01-28 20:19) [2]

глянь тут:
http://kladovka.net.ru/index.cgi?pid=list&rid=252
там есть процедурка процентного "черно-беливания":)


 
вурдалак   (2006-01-29 10:26) [3]

пасибо!


 
вурдалак   (2006-02-01 18:40) [4]

antonn - отличное решение, но не могли бы вы мне подсказать. как мне быстро обработать изображение имея только канву? меня интересуют теже эффекты (grayscale / brigth) но применимо к канве. ед. способо который с ходу увидел:

procedure PrepareBitmapBright(_B_out:Tbitmap; _level:real);
var
x, y: Integer;
RowOut: PRGBArray;
_r,_b,_g:integer;
begin
//_B_out.PixelFormat:=pf24bit;
for y:=0 to _B_out.Height-1 do
begin
 RowOut:= _B_out.ScanLine[y];
 for x:=0 to _B_out.Width-1 do
 begin
  _r:=trunc(RowOut[x].rgbtRed+(RowOut[x].rgbtRed/100)*_level);
  if _r>255 then _r:=255; if _r<0 then _r:=0;
  _g:=trunc(RowOut[x].rgbtGreen+(RowOut[x].rgbtGreen/100)*_level);
  if _g>255 then _g:=255; if _g<0 then _g:=0;
  _b:=trunc(RowOut[x].rgbtBlue+(RowOut[x].rgbtBlue/100)*_level);
  if _b>255 then _b:=255; if _b<0 then _b:=0;
   RowOut[x].rgbtRed:=_r;
   RowOut[x].rgbtGreen:=_g;
   RowOut[x].rgbtBlue:=_b;
  end;
end
end;

procedure DrawIt(Canvas: TCanvas);
var
BufferBMP: TBitmap;
begin
BufferBMP:=TBitmap.Create;
BufferBMP.Canvas.CopyRect(Rect(0,0,FControl.Width,FControl.Height),
  Canvas, Rect(0,0,FControl.Width,FControl.Height));
PrepareBitmapBright(BufferBMP,30);
Canvas.CopyRect(Rect(0,0,FControl.Width,FControl.Height),
  BufferBMP.Canvas, Rect(0,0,FControl.Width,FControl.Height));
end;


 
antonn ©   (2006-02-02 13:48) [5]

ну да, так примерно и надо, только доработать малость...
procedure DrawIt(Canvas: TCanvas);
var BufferBMP: TBitmap;
begin
BufferBMP:=TBitmap.Create;
try
BufferBMP.Canvas.CopyRect(Rect(0,0,FControl.Width,FControl.Height),
 Canvas, Rect(0,0,FControl.Width,FControl.Height));
PrepareBitmapBright(BufferBMP,30);
Canvas.CopyRect(Rect(0,0,FControl.Width,FControl.Height),
 BufferBMP.Canvas, Rect(0,0,FControl.Width,FControl.Height));
finally
BufferBMP.free;
end;
end;


и в моей PrepareBitmapBright в строках типа
if _b>255 then _b:=255; if _b<0 then _b:=0;
сделать
if _b>255 then _b:=255 else if _b<0 then _b:=0;



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

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

Наверх




Память: 0.46 MB
Время: 0.01 c
10-1111136854
Anty
2005-03-18 12:07
2006.03.05
Проблема с ActiveX


2-1139847656
Officeman
2006-02-13 19:20
2006.03.05
И снова про ScreenShot с формы


15-1139566520
Val
2006-02-10 13:15
2006.03.05
Знатокам немецкого: просьба исправить ошибки.


15-1139838359
Arkady
2006-02-13 16:45
2006.03.05
Borland отказывается от развития Dephi и C++


2-1140356030
_shark_@list.ru
2006-02-19 16:33
2006.03.05
Уважаемые мастера, подскажите пожалуйсто, как можно прочитать из





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