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

Вниз

Выцветающий экран   Найти похожие ветки 

← →
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 вся ветка

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

Наверх

Память: 0.47 MB
Время: 0.052 c