Search results for 'Fade Out'. 1 post(s) found.
- 2007/09/11 TImage.Bitmap fade out
Put a TImage (Image1) on a Delphi form and load a bitmap of 24 bits or 32 bits in it; put a TButton (Button1) and put this code in its OnClick event:
procedure TForm1.Button1Click(Sender: TObject) ;
procedure FadeOut(const BMP:TImage; Pause:integer) ;
var
BytesPorScan : integer;
w,h : integer;
p : pByteArray;
counter : integer;
begin
{This only works with 24 or 32 bits bitmaps}
If Not (BMP.Picture.Bitmap.PixelFormat
in [pf24Bit, pf32Bit])
then raise exception.create
('Error, bitmap format not supported.') ;
try
BytesPorScan:=
Abs(Integer(BMP.Picture.Bitmap.ScanLine[1])-
Integer(BMP.Picture.Bitmap.ScanLine[0])) ;
except
raise exception.create('Error') ;
end;
{Decrease the RGB for each single pixel}
for counter:=1 to 256 do
begin
for h:=0 to BMP.Picture.Bitmap.Height-1 do
begin
P:=BMP.Picture.Bitmap.ScanLine[h];
for w:=0 to BytesPorScan-1 do
if P^[w] >0 then P^[w]:=P^[w]-1;
end;
Sleep(Pause) ;
BMP.Refresh;
end;
end; {procedure FadeOut}
begin {button1_click}
FadeOut(Image1,5) ;
end;
procedure FadeOut(const BMP:TImage; Pause:integer) ;
var
BytesPorScan : integer;
w,h : integer;
p : pByteArray;
counter : integer;
begin
{This only works with 24 or 32 bits bitmaps}
If Not (BMP.Picture.Bitmap.PixelFormat
in [pf24Bit, pf32Bit])
then raise exception.create
('Error, bitmap format not supported.') ;
try
BytesPorScan:=
Abs(Integer(BMP.Picture.Bitmap.ScanLine[1])-
Integer(BMP.Picture.Bitmap.ScanLine[0])) ;
except
raise exception.create('Error') ;
end;
{Decrease the RGB for each single pixel}
for counter:=1 to 256 do
begin
for h:=0 to BMP.Picture.Bitmap.Height-1 do
begin
P:=BMP.Picture.Bitmap.ScanLine[h];
for w:=0 to BytesPorScan-1 do
if P^[w] >0 then P^[w]:=P^[w]-1;
end;
Sleep(Pause) ;
BMP.Refresh;
end;
end; {procedure FadeOut}
begin {button1_click}
FadeOut(Image1,5) ;
end;
Another posts included in "Delphi"
| Rotate Bitmap (any angle, any center of rotation) (0) | 2007/09/11 |
| Are we connected to the Internet? (0) | 2007/09/18 |
| Download a file from the Internet with progress indicator (0) | 2007/09/18 |
| TDesktopCanvas - draw on Windows Desktop (0) | 2007/09/11 |
| TColor to HTML color (0) | 2007/09/11 |
| Show *any* graphics as Glyph on a SpeedButton (0) | 2007/09/11 |
| Rotating Text (0) | 2007/09/11 |
| Paint a Form with a tiled bitmap image (0) | 2007/09/11 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 03:07
moneyideas
-
Subject different money making ideas
2010/01/29 12:01
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed