Image animation (Page 2 of 3)

Hi Again Fabio, Sparrow,
I was inspired by Sparrow's approach to simplifying 'frmitaliano' by using just one label and came up with yet another option (don't you just love MVD!).
Basically,
1.  use one label with an initial width of 0. 
2.  increase the width of the label by the width of each letter. 
The only proviso here is that you really need to use a mono-spaced font to get the correct effect.  But the code is very simple.
Another random idea I had was that you could convert your grifone.png image into a .gif.
Both of these are in the attachment (I put them in a discrete project rather than mess up your 'Tesina' project).
Regards,
Derek.

Good morning everyone,
I'm moving forward with this project for my son's thesis. For work reasons I had to slow down the project a bit but now time is running out.
In the attachment I put the project as far as I have arrived.
What I would like to understand is how I could make a loop that continues until a certain control reaches a certain distance from the edge.
If you look in the project, just click on the first button in the first form (frmSummary), I put some writing with a slide effect. The problem is that by changing the length of the writing you have to do many tests to understand how many times the cycle must be repeated. I'm afraid that this way I won't be able to finish in time, the rehearsals take up a lot of time.
I tried to do something like this but it doesn't work:

begin
vi := 0;    
for vi := 250  do
      begin
        frmStoria.label5.Visible := True;
        frmStoria.label5.left := frmStoria.label5.left - 5;
        application.processmessages;
      end;
    until frmStoria.label5.left := 5;
   end;

Thanks to all and bye

Example

Hi Fabio

- Effects are separated into separate procedures. I hope this unifies and simplifies the writing of the program for you.
  Shown as an example of two forms.
- Implemented pause/continue (Space key) and skip action (ESC key). Shown using an example of an Intro and two forms.

Ciao Fabio, Привіт Sparrow,
In answer to Question 1, this is because lines 253-254 in your script are switching off 'styles' for those particular forms.

//  frmItaliano.styleelements := 0;
//  frmStoria.styleelements := 0;

If you comment them out, they should appear as all the others.
With regard to Question 2, do you want to stop the user from closing the form before the effects finish or is this permissible and you want to avoid having to use task manager to terminate the program?  (for me, it does actually terminate but there is a delay of a few seconds).
Regards,
Derek.

Hi Derek, Fabio

Fabio,
1. Yes, Derek wrote everything correctly.
  But I would still advise you to choose the background color yourself for all forms with effects and leave styleelements := 0 unchanged.
  This will significantly reduce flicker.
2. Yes, I know about this problem. Below I have attached a corrected version of the example.
3. For information. Using a value less than Sleep(10) does not make sense due to the nature of pascal.

I was sure that you had already finished the project. It’s a pity that you delayed the implementation and you don’t have time left. (

Above I gave my example2.

Show me your program and I'll try to help.

I'll show you a fragment.
For each form with effects (except Intro), in each loop you need to insert the line

between loop Begin ... End;
Try it on one form first

procedure frmSommario_bStoria_OnClick (Sender: TObject; var Cancel: boolean);
var
 itArr: string='LA PRIMA RIVOLUZIONE INDUSTRIALE';
begin
  frmStoria.Label1.Caption := '';
  frmStoria.doublebuffered := true;
  frmStoria.show;
  for vi := 0 to length(itArr) do
    begin
      sleep(100);
      frmStoria.Label1.Caption := frmStoria.Label1.Caption +(itArr[vi]);
      application.processmessages;
      sleep(10);
      if screen.activeform.name = 'frmSommario' then Exit;                        //   < ========================
      //frmItaliano.Label1.Caption := UpperCase(frmItaliano.Label1.Caption);
      //application.processmessages;
    end;

    begin
    frmStoria.imStoria.Visible:= true;                // Disabilitato nelle proprietà, visibile all'apertura del form
    frmStoria.imStoria.Height := 9;
      for vi := 1 to 150 do
        begin
          frmStoria.imStoria.Height := frmStoria.imStoria.Height +2;
          application.processmessages;
          sleep(10);
          if screen.activeform.name = 'frmSommario' then Exit;                   //   < ========================
        end;
     end;

. . .
. . .
. . .
End;

Now I have another problem that I can't understand: the title "RINGRAZIAMENTI" of the frmRingraziamenti form doesn't want to go to the center. It may certainly be a trivial thing but now I'm completely at a loss. I've been experimenting for half an hour to understand why.

Truly? Maybe I uploaded a copy of the copy, the one I attach now is correct. Among other things, I added "Label2" in frmRingraziamenti. If I put it justified on the right as it is now it's fine, but if I put it in the center it doesn't want to go there.