dragonleo/NSIS
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

New UberSplash by Vince

Browse source 
git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@901 212acab6-be3b-0410-9dea-997c60f758d6
This commit is contained in:
kichik 2002-09-04 12:56:49 +00:00
parent 0bb9e63724
commit 3a2b46e2d4
5 changed files with 287 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

138
Contrib/UberSplash/splash.dpr Normal file
View file

@ -0,0 +1,138 @@
{****************************************}
Program splash;
uses
Windows,
Kol;
type
PByteArray = ^TByteArray;
TByteArray = array[0..32767] of Byte;
var
Applet, {A main form or application}
PaintBox : pControl; {A simple static paintbox}
BitMap : pBitmap; {A bitmap}
i,j,j2,wait,inSpd,outSpd : Word; {temp values...}
WindowRgn, RowRgn : HRGN; {Regions for transparency}
FadeIn,FadeOut : pTimer; {Timers...}
FadeInFlag : Boolean; {Switch Fade In/Out Flag}
ScannedLine : PByteArray; {Array for RGB data from BitMap}
//This handles the OnPaint event from the Paintbox It draws the bitmap on the PaintBox's Canvas
procedure paint(dummy:pointer;sender:pcontrol;DC:HDC);
begin
Bitmap.Draw(DC,0,0);
end;
procedure FadeInAlpha(Sender: PObj);
begin
if FadeInFlag then
if Applet.AlphaBlend < (255 - inSpd) then Applet.AlphaBlend := Applet.AlphaBlend + inSpd;
if not FadeInFlag then begin
if Applet.AlphaBlend > outSpd then Applet.AlphaBlend := Applet.AlphaBlend - outSpd;
if Applet.AlphaBlend < outSpd + 1 then begin
Applet.AlphaBlend := 0;
Applet.Close;
end;
end;
end;
procedure FadeOutAlpha(Sender: PObj);
begin
if Applet.AlphaBlend > inSpd then
FadeInFlag := False
else begin
Applet.AlphaBlend := 0;
Applet.Close;
end;
end;
begin
if ParamStr(1) <> '' then begin
if ParamStr(2) = '' then inSpd := 5 else inSpd := Str2Int(ParamStr(2));
if ParamStr(3) = '' then wait := 2000 else wait := Str2Int(ParamStr(3));
if ParamStr(4) = '' then outSpd := 25 else outSpd := Str2Int(ParamStr(4));
end
else begin
if ParamStr(2) = '' then inSpd := 1 else inSpd := Str2Int(ParamStr(2));
if ParamStr(3) = '' then wait := 1 else wait := Str2Int(ParamStr(3));
if ParamStr(4) = '' then outSpd := 1 else outSpd := Str2Int(ParamStr(4));
end;
{Create the form}
Applet:=NewForm(nil,'').SetSize(0,0);
Applet.CenterOnParent;
Applet.Visible := False;
Applet.AlphaBlend := 0;
Applet.Style := WS_POPUP;
Applet.HasBorder := False;
Applet.Border := 0;
Applet.Color := clBlack;
{Create the bitmap itself}
BitMap:=NewBitMap(0,0);
BitMap.Clear;
//LoadFromFile has built in error checking...
if ParamStr(1) <> '' then BitMap.LoadFromFile(ParamStr(1));
{Create the Paintbox to draw the bitmap on}
PaintBox:=NewPaintbox(Applet).setalign(caClient);
PaintBox.Width:=BitMap.Width;
PaintBox.Height:=BitMap.Height;
PaintBox.OnPaint:=TOnPaint(MakeMethod(nil,@Paint));
{Do some housekeeping}
Applet.ClientHeight:=Bitmap.Height+10;
Applet.ClientWidth :=Bitmap.Width+10;
Applet.Top := Applet.Top - Applet.Height div 2;
Applet.Left := Applet.Left - Applet.Width div 2;
{Cut out magic color}
WindowRgn := CreateRectRgn(0,0,0,0);
for i:= 0 to BitMap.Height - 1 do begin
ScannedLine := BitMap.ScanLine[i];
j := 0;
while (j < BitMap.Width - 1) do begin
if ((ScannedLine[j * 3 + 2]*256*256)+(ScannedLine[j * 3 + 1]*256)+ScannedLine[j * 3] = clLime) then j := j + 1
else begin
j2 := j;
while (j2 < BitMap.Width - 1) and ((ScannedLine[j2 * 3 + 2]*256*256)+(ScannedLine[j2 * 3 + 1]*256)+ScannedLine[j2 * 3] <> clLime) do j2 := j2 + 1;
RowRgn := CreateRectRgn(j,i,j2,i+1);
CombineRgn(WindowRgn, WindowRgn, RowRgn, RGN_OR);
DeleteObject(RowRgn);
j := j2;
end;
end;
end;
SetWindowRgn(Applet.Handle,WindowRgn,true);
//remove taskbar icon and get ready to rock...
ShowWindow(Applet.Handle, SW_HIDE);
SetWindowLong(Applet.Handle, GWL_EXSTYLE,GetWindowLong(Applet.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
ShowWindow(Applet.Handle, SW_SHOW);
ShowWindow(Applet.Handle, SW_SHOWDEFAULT);
BringWindowToTop(Applet.GetWindowHandle);
Applet.DoSetFocus;
Applet.StayOnTop := True;
Applet.Visible := True;
{start timers}
FadeInFlag := True;
FadeIn := NewTimer(2);
FadeIn.OnTimer := TOnEvent(MakeMethod(nil,@FadeInAlpha));
FadeIn.Enabled := True;
FadeOut := NewTimer(wait);
FadeOut.OnTimer := TOnEvent(MakeMethod(nil,@FadeOutAlpha));
FadeOut.Enabled := True;
{Run splash}
Run(Applet);
{Free the bitmap:it has no parent}
Bitmap.free;
end.