Animierte Splash Form

[Alois]

Und hier die deutsche Übersetzung der Homepage:

Homepage in Deutsch http://www.bitoff.ru/animationsplash/

Gruss Alois

[Andy BitOff]

Zitat von Alois:

Und hier die deutsche Übersetzung der Homepage:

Gruss Alois

[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

mfG

[Alois]

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

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<[e-mail]>?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.

[mkinzler]

lade dir doch die Demos herunter, der Quelltext ist dabei
http://www.bitoff.ru/animationsplash/demo.html

[Andy BitOff]

If you use SplashCreator is saved in the file can be downloaded as shown in ASFDemo - Antonn (ASFDemoAntonn.dpr)

Delphi-Quellcode:

begin
  ProgressTextItem := 0; //Index text to be changed

  // Create from the saved file
  AnimationSplashForm := TAnimationSplashForm.CreateFullFrom(ExtractFilePath(ParamStr(0)) + 'img\' + 'FullData.dat');

  Application.Initialize;
  Application.CreateForm(Tfrm_Main, frm_Main);

  // Close and destroy
  AnimationSplashForm.CloseSplash(30, True);

  Application.Run;
end.

[Andy BitOff]

New version 2.2.0
Changes:
+ OnKeyPress
+ OnKeyDown
+ OnKeyUp
+ ClosingAllow - to allow the closure splash (Default - True)
* Minor changes

SplashCreator version 1.1.0
Support properties ClosingAllow

transformed demo CustomDraw
We show how to paint as close to ESC and use the features ClosingAllow to block the closure of other ways.

http://www.bitoff.ru/animationsplash/index.html

[Andy BitOff]

Version 2.2.2
+ AttemptedClosure - a sign of attempted closure splash

[Super_Chemiker]

Danke an alle, wenn ich die Demo starten will, dann sagt der Debugger:

Code:

[DCC Fataler Fehler] ASFDemoMain.pas(35): F1026 Datei nicht gefunden: 'ASFMain.dcu'

[Super_Chemiker]

Weiß keiner Rat?