Image animation (Page 1 of 3)

Ciao Fabio,
Come ti vanno le cose?   Spero che tu e la famiglia stiate bene.
I use a few animation options - they are all for various 'log in' screens but they could also be used any where in your program.
Examples 1 and 2 are in the attachment with this message and examples 3 and 4 are in the next message (they were too large to zip into a single attachment!).
All 4 examples also have an animated .gif on the main screen - perhaps that's another option.
Regards,
Derek.

Hi Derek and Fabio.

Derek, try this.
Comments in the script.
Likewise for other examples where there is a need.

in boccalupo per la tesi Fabio!

Good evening Derek and Domenico,
based on Derek's examples, always very well done, I tried to start with this program. I more or less understood the code but obviously there is always something that doesn't work for me.
My intent was to have the first window open with a fade effect, fix the window for a certain time and then make it disappear again with a fade effect. In Derek's example it works great, but my project has the following problems:

• the window does not open in the center

• the window does not appear with a fade effect

• some controls inside the window are dancing

I've tried a bit to change the loop values but the problems remain.
I'm attaching this weird stuff I made.
A thousand thanks!

Hi Derek, as always I don't know how to thank you.
I thought that to make the fade effect slower I needed to increase the number of cycles, for example like this:

for vi := 5 to 400 do

Instead this opens the window for me twice. Instead I tried increasing the value of the sleep instruction and by doing so the effect slows down.
I didn't understand the mechanism but that's how it is.
Thanks Derek!

Thanks Derek for the always very clear explanation.
I created an enlargement effect on a "label" and I managed to both create the effect and center it in the window. I consider it, for me, a great success, thanks to your examples I was able to understand the system.

Hi Fabio,

Unfortunately it doesn't work that way.

The first way is to call the form manually using the button's onClick event by disabling the automatic opening of the form in the button properties.

procedure frmSommario_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var vi: integer;

begin
fmrRingraziamenti.Show;
  for vi := 1 to 100 do
    begin
      fmrRingraziamenti.lbFabio.top := fmrRingraziamenti.lbFabio.top -1;
      application.processmessages;
      sleep(10);
    end;
end;

The second method is more difficult to implement. In the mode of automatically opening the form in the OnShow event, trigger your effects on a timer with a delay of 200-500 ms. in order for the form to be displayed first and with a delay the effects. Which is the same as in the first method, but more complicated.

P.S. And don't forget to use "formname".doublebuffered := true; // enable doublebuffering Pay attention to Derek's example.

Flickering is possible both when redrawing gifs and when quickly redrawing objects on the screen.

Be careful when writing.

procedure frmSommario_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var vi: integer;

begin
  frmRingraziamenti.doublebuffered := true;                   // ADD
frmRingraziamenti.Show;
  for vi := 1 to 180 do
    begin
      frmRingraziamenti.lbFabio.top := frmRingraziamenti.lbFabio.top -1;
      application.processmessages;
      sleep(10);
    end;

//frmRingraziamenti.lbFabio.hide;                                    // Fixed bug
frmRingraziamenti.lbFabio.Visible := false;
sleep(2);
//frmRingraziamenti.lbProfessori.show;                                // Fixed bug
frmRingraziamenti.lbProfessori.Visible := true;

  for vi := 1 to 180 do
   begin
//     frmRingraziamenti.lbProfessori.top := frmRingraziamenti.lbFabio.top -1;
     frmRingraziamenti.lbProfessori.top := frmRingraziamenti.lbProfessori.top -1;   // Fixed bug
     application.processmessages;
     sleep(10);
   end;
end;

Ciao Fabio, Hi Sparrow,
I was wondering if you could make the 'thankyou' form a bit simpler by placing the labels outside of the panel and then just have them scrolling up - that way you don't need to make them visible / invisible.  And rather than going through the counter twice, just increase the number of cycles.
Just a thought (and I like anything that keeps the script compact!).
Give my regards to Tommaso .
Derek.
n.b. - I may have messed your timings up a bit - I was in a rush and couldn't wait for the animations to finish   Sorry

Hi Derek, Domenico, Fabio

I've tweaked and simplified the animation calculations a bit in Derek's example for "frmIntro".
Reduced flicker, improved placement... . Comments in the script.

Hi everyone, I'm here again asking for help.
in the Italian subject window, you can get there by clicking on the "Avanti" button at the bottom right of the main window (frmSommario), I wanted to set the title with the letters that entered one at a time according to Derek's second (staccato) project.
I basically wrote:

procedure frmItaliano_OnShow (Sender: TObject; Action: string);
var  vi: integer;
frmItaliano.doublebuffered := true;
begin
  for vi:= 0 to frmItaliano.ComponentCount -1 do
    begin
      if frmItaliano.components[vi] is tdblabel then tdblabel(frmItaliano.components[vi]).styleelements := 0;
      application.processmessages;
      Tlabel(frmItaliano.Components[vi]).visible := true;
      sleep(400);
    end;
  application.processmessages;
end;

As always derek's one works, mine not, yet I seem to have written everything correctly but this is clearly not the case.