Форум: "Media";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
ВнизВыцветающий экран Найти похожие ветки
← →
dzugaru (2005-09-08 01:36) [0]Господа, возникла необходимость сделать изображение на экране "выцветающим" (как в winXP, при завершении работы)
Не подскажете, как это можно реализовать?
← →
vrem (2005-09-09 17:09) [1]1. Сделать снимок экрана
2. Делать ему "выцветание" :) и на свою форму(во весь экран) рисовать
← →
programania © (2005-09-10 23:17) [2]Выцветание экрана
program delColor;{$R-,S-}
uses Graphics, forms, SysUtils, windows, Classes;
const
f=254; //чем меньше тем быстрее
var
ce:tCanvas;
x,y,h,w,i,j,x1,c:integer;
b:Graphics.tBitmap;
s :pbytearray;
begin
ce:=tCanvas.create;
ce.Handle:=GetDC(0);
h:=screen.height; w:=screen.width;
b:=Graphics.tBitMap.create; b.pixelformat:=pf24bit; b.width:=w; b.height:=h;
b.canvas.copyRect(rect(0,0,w,h),ce,rect(0,0,w,h));
for c:=1 to 100 do begin
for y:=1 to h-1 do begin
s:=b.ScanLine[y];
x1:=0;
for x:=1 to w-1 do begin
i:=(s[x1]+s[x1+1]+s[x1+2]) div 3;
s[x1]:=i+(s[x1]-i)*f div 256; inc(x1);
s[x1]:=i+(s[x1]-i)*f div 256; inc(x1);
s[x1]:=i+(s[x1]-i)*f div 256; inc(x1);
end;
end;
ce.draw(0,0,b);
end;
halt;
end.
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c