Delphi-PRAXiS - Delphi Animierte Splash Form

Zitat:

Zitat von Super_Chemiker

Vielleicht eine blöde Frage, aber wie integriere ich so einen Splashscreen jetzt in ein Delphi Projekt? Ich wüsste nicht, wie ich das mit dem Dateityp als Formular festlege :wiejetzt:

mfG

Schau dir doch die Dateien im ASF Demo Full an.
Hier der Link:

http://www.bitoff.ru/animationsplash/ASFDemoFull.zip

Gruss Alois ;)

ASFDemoMain.pas

Delphi-Quellcode:

			unit ASFDemoMain;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ShellAPI;

type

  Tfrm_Main = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Label2Click(Sender: TObject);

    procedure Label3Click(Sender: TObject);

    procedure LabelMouseEnter(Sender: TObject);

    procedure LabelMouseLeave(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  frm_Main: Tfrm_Main;

{===================================================== }

// Õðàíèò èíäåêñ òåêñòà, êîòîðûé íàäî áóäåò ìåíÿòü â ïðîöåññå

  ProgressTextItem: Integer;

implementation

uses

  ASFMain;

{$R *.dfm}

procedure Tfrm_Main.FormCreate(Sender: TObject);

begin

  // Óñòàíîâèòü èíäåêñ òåêóùåé èêîíêè

  AnimationSplashForm.ProgressIconCurrentItem := 0;

  AnimationSplashForm.TextData.Items[ProgressTextItem].Text := 'Óñòàíîâêà ñòèëåé...';

  // â ìñ. ïðèáëèçèòåëüíî

  AnimationSplashForm.LoadingSectionTime := 1000;

  // Èìèòàöèÿ äîëãîãî áåçîòâåòíîãî äåéñòâèÿ

  Sleep(1000);

  AnimationSplashForm.TextData.Items[ProgressTextItem].Text := 'Çàãðóçêà ïàðàìåòðîâ...';

  AnimationSplashForm.IncCurrentSection;

  AnimationSplashForm.IncCurrentItemIcon;

  AnimationSplashForm.LoadingSectionTime := 3000;

  // Èìèòàöèÿ äîëãîãî áåçîòâåòíîãî äåéñòâèÿ

  Sleep(3100);

  AnimationSplashForm.TextData.Items[ProgressTextItem].Text := 'Èíèöèàëèçàöèÿ COM...';

  AnimationSplashForm.IncCurrentSection;

  AnimationSplashForm.IncCurrentItemIcon;

  AnimationSplashForm.LoadingSectionTime := 1000;

  // Èìèòàöèÿ äîëãîãî áåçîòâåòíîãî äåéñòâèÿ

  Sleep(1600);

  AnimationSplashForm.TextData.Items[ProgressTextItem].Text := 'Ïîäêëþ÷åíèå MUI...';

  AnimationSplashForm.IncCurrentSection;

  AnimationSplashForm.IncCurrentItemIcon;

  AnimationSplashForm.LoadingSectionTime := 1000;

  // Èìèòàöèÿ äîëãîãî áåçîòâåòíîãî äåéñòâèÿ

  Sleep(500);

  AnimationSplashForm.TextData.Items[ProgressTextItem].Text := 'Çàãðóçêà èíòåðôåéñà...';

  AnimationSplashForm.IncCurrentSection;

  AnimationSplashForm.IncCurrentItemIcon;

  AnimationSplashForm.LoadingSectionTime := 2000;

  // Èìèòàöèÿ äîëãîãî áåçîòâåòíîãî äåéñòâèÿ

  Sleep(2000);

  AnimationSplashForm.TextData.Items[ProgressTextItem].Text := 'Çàïóñê...';

end;

procedure Tfrm_Main.Label2Click(Sender: TObject);

begin

  Screen.Cursor := crHourGlass;

  ShellExecute(Application.Handle, nil,

      'mailto:ASF%20-%20Andy%20BitOff<asf@bitoff.ru>?subject=AnimationSplashForm',

      nil, nil, SW_SHOWNORMAL);

  Screen.Cursor := crDefault;

end;

procedure Tfrm_Main.Label3Click(Sender: TObject);

begin

  Screen.Cursor := crHourGlass;

  ShellExecute(Application.Handle, nil,

      PChar(TLabel(Sender).Hint),

      nil, nil, SW_SHOWNORMAL);

  Screen.Cursor := crDefault;

end;

procedure Tfrm_Main.LabelMouseEnter(Sender: TObject);

var

  a: Integer;

begin

  Screen.Cursor := crHandPoint;

  a := TLabel(Sender).Tag;

  TLabel(Sender).Tag := TLabel(Sender).Font.Color;

  TLabel(Sender).Font.Color := TColor(a);

end;

procedure Tfrm_Main.LabelMouseLeave(Sender: TObject);

begin

  LabelMouseEnter(Sender);

  Screen.Cursor := crDefault;

end;

end.

ASFDemoFull.dpr

Delphi-Quellcode:

			program ASFDemoFull;

uses

  Forms,

  ASFDemoMain in 'ASFDemoMain.pas' {frm_Main},

  SysUtils,

  GDIPAPI,

  ASFLists in '..\..\ASFLists.pas',

  ASFMain in '..\..\ASFMain.pas';

{$R *.res}

var

  Anim1: TAnimationFrames;

  SplashImagePath, s: string;

  i: Integer;

begin

  SplashImagePath := ExtractFilePath(ParamStr(0)) + 'img\';

  AnimationSplashForm := TAnimationSplashForm.CreateFrom(SplashImagePath + 'Splash.png');

  // Çäåñü íàäî ó÷åñòü, ÷òî öåíòðóåòñÿ ñïëýø èìåííî ïî ðàçìåðàì áýêãðàóíäà

//  AnimationSplashForm := TAnimationSplashForm.CreateEmptyBackGround(196, 273, 72, 72);

  // Ïîêàçûâàòü êíîïêó íà Ïàíåëè çàäà÷

  AnimationSplashForm.ShowTaskbarButton := True;

  // Çàãîëîâîê îíêà, åñëè ShowTaskbarButton = True

  AnimationSplashForm.SplashFormCaption := 'Çàãðóçêà...';

  // Îòðèñîâûâàòü îêíî ïîâåðõ âñåõ

  AnimationSplashForm.SplashFormTopMost := False;

  // Ñêîðîñòü ïðîÿâëåíèÿ è çàòóõàíèÿ ñïëýøà

  // çàâèñèìîñòü îò òàéìåðà, ò.å. SetTimerInterval * FadeSpeed

  AnimationSplashForm.FadeSpeed := 7;

  // Óñòàíîâêà èíòåðâàëà òàéìåðà

  AnimationSplashForm.SetTimerInterval(15);

// ÒÅÊÑÒ ÏÐÎÖÅÑÑÀ

  ProgressTextItem := AnimationSplashForm.TextData.AddNewItem;

  with AnimationSplashForm.TextData.Items[ProgressTextItem] do begin

    // Ïîêàçûâàòü òåêñò

    Visible := True;

    // Ïîêàçûâàòü òåíü òåêñòà

    VisibleShadow := True;

    // Ðåêò â êîòîðîì îòîáðàæàåòñÿ òåêñò

    TextBox := MakeRect(20, 190, 145, 20);

    // öâåò òåêñòà

    Color := $FFF0F0F4;

    // öâåò òåíè

    ShadowColor := $FF6C6C39;

    // øðèôò

    FontName := 'Verdana';

    FontSize := 11;

    // öåíòðîâàòü ïî ãîðèçîíòàëè

    PositionH := StringAlignmentCenter;

  end;

// ÏÐÎÃÐÅÑÑ ÁÀÐ

  with AnimationSplashForm.ProgressBar^ do begin

    // Ïîêàçûâàòü ïðîãðåññ áàð

    BarVisible := True;

    // Ïîêàçûâàòü ðàìêó ïðîãðåññ áàðà

    BarBorderVisible := True;

    // ðàçìåðû ïðîãðåññ áàðà

    BarBox := MakeRect(27, 212, 130, 10);

    // öâåò ïðîãðåññ áàðà

    BarColor := $60FFFFFF;

    // öâåò áîðäþðà

    BarBorderColor := $80F0F0F0;

  end;

  // Ñîçäàäèì ïîñòîÿííûé òåêñò, íàïðèìåð, íîìåð âåðñèè

  i := AnimationSplashForm.TextData.AddNewItem;

  with AnimationSplashForm.TextData.Items[i] do begin

    Visible := True;

    Text := 'version: 1.0.0.0';

    TextBox := MakeRect(27, 252, 130, 10);

    FontSize := 8;

    FontStyle := FontStyleItalic;

    PositionH := StringAlignmentCenter;

  end;

// ÈÊÎÍÊÈ

  // Ïîêàçûâàòü èêîíêè

  AnimationSplashForm.ProgressIconsVisible := True;

  // Ñêîðîñòü ïðîÿâëåíèÿ èêîíîê (â ïðîöåíòàõ) â çàâèñèìîñòè îò LoadingPartTime

  // 100 çíà÷èò, ÷òî èêîíêà áóäåò ïðîÿâëÿòüñÿ âñ¸ âðåìÿ (LoadingPartTime),

  // 50 - ïðîÿâèòñÿ çà ïîëîâèíó âðåìåíè

  AnimationSplashForm.IconFullPaintPercent := 100;

  // Çàäàòü àíèìàöèþ ïîÿâëåíèÿ èêîíîê

  AnimationSplashForm.IconAnimation := iaFade;

  // Ïîëîæåíèå ïåðâîé èêîíêè - ëåâûé êðàé

  AnimationSplashForm.IconPosLeft := 23;

  // Ïîëîæåíèå ïåðâîé èêîíêè - âåðõíèé êðàé

  AnimationSplashForm.IconPosTop := 226;

  // Ðàññòîÿíèå ìåæäó èêîíêàìè

  AnimationSplashForm.IconSpace := 2;

  // Ñêîëüêî ïèêñ.îòñòóïàòü îò ëåâîãî êðàÿ ïðåä.èêîíêè.

  // Åñëè ýòî çíà÷. = 0, òî áåðåòñÿ çíà÷åíèå øèðèíû ïðåä.èêîíêè

  AnimationSplashForm.IconStep := 25;

  // Òåïåðü çàãðóæàåì ñàìè èêîíêè

  AnimationSplashForm.Icons.LoadFromFile(SplashImagePath + 'Icons.dat');

{  // Ïåðâàÿ çàãðóçêà èç ôàéëîâ è ñîõðàíåíèå â îäèí ôàéë

  // Çàòåì çàãðóçêà èäåò óæå è òîãî ôàéëà

  AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'Styles.png');    // 1

  AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'Properties.png');// 2

  AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'Com.png');       // 3

  AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'Mui.png');       // 4

  AnimationSplashForm.Icons.AddFromFile(SplashImagePath + 'Interface.png'); // 5

  AnimationSplashForm.Icons.SaveToFile(SplashImagePath + 'Icons.dat');}

// ÀÍÈÌÀÖÈß

  // Ïîäãîòîâèì àíèìàöèþ

  AnimationSplashForm.AnimationsAddFromFile(SplashImagePath + 'Animation.dat');

{  // Ïåðâàÿ çàãðóçêà èç ôàéëîâ è ñîõðàíåíèå â îäèí ôàéë

  // Çàòåì çàãðóçêà èäåò óæå è òîãî ôàéëà

  Anim1 := TAnimationFrames.Create;

  try

    Anim1.DelayBetweenImages := 3;

    // Ïàóçà ìåæäó ïîâòîðàìè öèêëîâ àíèìàöèè

    Anim1.DelayBetweenPassage := 0;

    Anim1.PositionLeft := 42;

    Anim1.PositionTop := 79;

    for I := 0 to 17 do begin

      s := IntToStr(i);

      if Length(s) = 1 then

        s := '0' + s;

      Anim1.AddFromFile(SplashImagePath + 'Animation ' + s + '.png');

    end;

    AnimationSplashForm.AnimationsAdd(Anim1);

    Anim1.SaveToFile(SplashImagePath + 'Animation.dat');

  finally

    Anim1.Free;

  end;}

  // Óñòàíàâëèâàåò êîëè÷åñòâî ÷àñòåé äëÿ çàãðóçêè

  // Òàêæå àâòîìàòîì ProgressBarCurrentPart ñòàâèòñÿ ðàâíîé 1

  AnimationSplashForm.ProgressBarSectionsCount := 5;

  // Çàïóñòèòü Splash

  AnimationSplashForm.StartSplash;

  Application.Initialize;

  Application.CreateForm(Tfrm_Main, frm_Main);

  // Çàêðûòü è óíè÷òîæèòü

  AnimationSplashForm.CloseSplash(30, True);

  Application.Run;

end.