Animacja przy uruchomieniu softu

0

Witam ,

Mam grafike JPG ktora chce wyswietlic podczas uruchomienia mojego programu , a mianowicie przed pojawieniem sie FORMa, czyli odpalamy program pokazuje sie obrazek i dopiero pokazuje sie program.
Dla utrudnienia chcialbym zeby pole obrazka pokazalo sie calkowicie biale a nastepnie przyciemniajac sie doszlo do momentu normalnej widocznosci mojej grafiki.

Nie znalazlem zadnego info na ten temat.Jak to zrobic ?

0

Robisz sobie Splash Screen i już tam dajesz timage a potem na tym obrazku wykonujesz najpierw rozjaśnienie a potem go sprowadzasz do normalności. Jak ci nie przeszkadza zeby ich było kilka, to zrób sobei np. 10 TIMAGE i do każdego wstaw obrazek z jakimś efektem (rozjaśnij sobie np. w PhotoFilter Studio) a potem w timerze zmieniasz pokazywany obrazek i jest. :)</image>

0
Gladiatus napisał(a)

Jak ci nie przeszkadza zeby ich było kilka, to zrób sobei np. 10 TIMAGE i do każdego wstaw obrazek z jakimś efektem (rozjaśnij sobie np. w PhotoFilter Studio) a potem w timerze zmieniasz pokazywany obrazek i jest. :)</image>

Spokojnie. A potem mamy aplikacje, typu np.: sterownik karty dzwiekowej, ktory wazy bagatela 30 MB. Ruszyc glowa i zimplementowac sobie algorytm rozjasniania.

0

pomyslalem sobie ze wykorzystam przezroczystosc...

image1.AlphaBlendValue:=200;
sleep(1);
image1.AlphaBlendValue:=190;

i tak dalej

ale image chyba nie obsluguje AlphaBlend ?

0

juz po sprawie.

dzieki za pomoc.

0

Nie musi. Ustaw dla formy.


// plik *.dpr
  Application.Initialize;
// tworzenie splasha

  Splash := TSplash.Create(nil);
  Splash.Show();
  Splash.Update();

// tworzenie form programu
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TMainForm, MainForm);

// niszczenie splasha
  Splash.AnimateAlpha();
  Splash.Hide();
  Splash.Free();

// start właściwej aplikacji
  Application.Run;


//======================


unit fSplash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TSplash = class(TForm)
    imSplash: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AnimateAlpha;
  end;

var
  Splash: TSplash;

implementation

{$R *.dfm}

procedure TSplash.AnimateAlpha;
var i :Byte;
begin
  for i := 255 downto 100 do
  begin
    Sleep(10);
    AlphaBlendValue := i;
  end;
end;

end.
0

Przydalo by sie oczywiscie jakies Application.ProcessMessages w tej petli :)

0

Co to jest TDM ?

Application.CreateForm(TDM, DM);

Podkresla mi ta linie ,a konkretnie ten TDM , co to jest ?

0

A to jest akurat TDataModule, wrzuciłem to po to abyś wiedział jaka jest struktura pliku *.dpr. To co masz to fragment wycięty z mojego programu, nie traktuj każdegp wiersza dosłownie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1