Revolance.ru | Flash-обои

unit mainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,
ShockwaveFlashObjects_TLB, ExtCtrls, DXOverlay_unit, OleCtrls, Menus, ComCtrls,
StdCtrls, Buttons;

unit viewForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, ShockwaveFlashObjects_TLB, ExtCtrls, DXOverlay_unit,
OleCtrls, Menus, ComCtrls, optionForm, StdCtrls, Buttons;

type
TForm1 = class(TForm)
DXOverlay: TDXOverlay;
Timer1: TTimer;
Flash1: TShockwaveFlash;
OpenDialog1: TOpenDialog;

procedure TForm1.FormCreate(Sender: TObject);
begin
myFlash:=TBitmap.Create;
myTemp:=TBitmap.Create;
myFlash.LoadFromFile('fdtop.bmp');
Flash1.Free;
Flash1:=TShockwaveFlash.Create(Form1);
Flash1.Parent:=Form1;
Flash1.Width:=1000;
Flash1.Height:=1000;
Flash1.Top:=1000;
Flash1.Left:=1000;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Flash1.Movie := 'c:\fd\chgPic.swf'; //укажем путь к начальному флэш клипу
DXOverlay:=TDXOverlay.Create(f1Width, f1Width, True);
DXOverlay.SetOverlayCKey($ffffffff, True);
f1Width:=1000;
f1Height:=f1Width;
myTemp.Width:=f1Width;
myTemp.Height:=f1Width;
myFlash.Width:=f1Width;
myFlash.Height:=f1Height;
myFlash.Canvas.Rectangle(0,0,f1Width,f1Height);
Form1.Hide;
Flash1.Visible:=False;
Flash1.Enabled:=False;
Timer1.Interval := 10; //интервал прорисовки экрана
Timer1.Enabled:=True;//запускаем наш таймер
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Flash1.PaintTo(myTemp.Canvas, 0, 0);
//копируем содержимое флэш компонента в Bitmap
cpRect:=Bounds(0,0, f1Width, f1Height);
myFlash.Canvas.CopyRect(cpRect, myTemp.Canvas, cpRect);
DXOverlay.DrawImage(myFlash.ScanLine[0], f1Width*-3, nil);
//затем прорисовываем полученную картинку на экран.
end;

program flash;

uses
Forms,
winstuff_light,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Dialogs,
ShockwaveFlashObjects_TLB,
mainForm in 'mainForm.pas' {Form1};

{$R flash.res} //Указаваем имя файла со значком

var Handle: THandle;
myColor: TColorDialog;
Flash1: TShockwaveFlash;
myFile: String='';
procedure Mproc(ItemIndex: Integer);
begin
//здесь в зависимости от выбора меню выполняем процедуры
case ItemIndex of
0: begin
Form1.OpenDialog1.Execute;
myFile:=Form1.OpenDialog1.FileName;
Form1.Flash1.Movie:=myFile;
end;

2: begin
myColor.Execute;
Form1.Flash1.BackgroundColor:=myColor.Color;
end;
4: begin
Form1.DXOverlay.Free;
Form1.Close;
end;
end;
end;

begin
myColor:=TColorDialog.Create(nil);
Handle:=CreateWindow('');
AddTrayIcon(Handle,'MNIcon','Flash DeskTop',
['Открыть файл','-','Выбрать фон','-','Exit'], Mproc);
//Добавляем значок в панель задач
Application.Initialize;
Application.CreateForm(TForm1, Form1);

Form1.Hide;
Application.Run;
DeleteTrayIcon;
end.

Сделаем небольшую флэш-анимацию для проверки нашей программы. Не забудьте прописать путь к flash-ролику. Во всяком случае, можно будет открыть другой документ. В архиве есть некоторые флэш-ролики для демонстрации.

Создадим анимацию с картинками, сначала будет видна одна картинка, она будет плавно исчезать, и за ней будет появляться другая. Я делал это во Flash СS3, но для этой флэш-презентации подойдет и 7-я версия программы.

Итак, запустим программу для создания flash-анимации, создадим новый файл ActionScript 2.0, в первом кадре напишем такой код:

picture1=true;

picture2=false;

TimeInterval=1000;

TimeChange=false;

myTime=2000;

attachMovie("pic"+Math.round(Math.random()*8+1), "pict1", 1);

//Здесь у меня число 8 – это количество клипов с картинками.

pict1._height=550;

pict1._x=275;

pict1._y=200;

attachMovie("pic"+Math.round(Math.random()*8+1), "pict2",0);

pict2._height=550;

pict2._x=275;

pict2._y=200;



stop();



onEnterFrame=function()

{

	if(myTime<getTimer()){

	if(picture1){

		pict1._alpha--;

		if(pict1._alpha<0){

			

			pict2.swapDepths(1);

			attachMovie("pic"+Math.round(Math.random()*8+1), "pict1", 0);

			pict1._height=550;

			pict1._x=275;

            pict1._y=200;

			TimeChange=true;

			picture1=false;

			picture2=true;

		}

	}

	if(picture2){

		pict2._alpha--;

		if(pict2._alpha<0){

			myTime=10000+getTimer();

			pict1.swapDepths(1);

			attachMovie("pic"+Math.round(Math.random()*8+1), "pict2", 0);

			pict2._height=550;

			pict2._x=275;

            pict2._y=200;

			TimeChange=true;

			picture2=false;

			picture1=true;

		}

	}

	if(TimeChange) TimeInterval=5000;

	myTime=TimeInterval+getTimer();

	TimeInterval=1000;

	TimeChange=false;

	}

	

}