Working with animation

Please post bug reports, feature requests, or any question regarding the DELPHI AREA products here.

Working with animation

Postby alexhaifa » December 2nd, 2005, 1:35 pm

Hello,

I have a procedure where some information are recorded.
I have some edits that must be filled, I put in their event onchange
the code:

Assistent.Play(aaWriting);

While I am writing I want my assistent writing too.
After filling all the edits, I have a button where I recored the information, so I want to stop the assistent that is writing and to pass another animation :

Code: Select all
  Assistent.StopAll;
  Assistent.Play(aaDoMagic);

  With Qry do
  Begin
   Close;
   Sql.Clear;
   Sql.Add('INSERT INTO CADPALVOCPROPRIO');
   Sql.Add('(TP_PALAVRA, TP_OPCAO01, TP_OPCAO02, TP_OPCAO03, TP_OPCAO04, TP_OPCAO_CORRETA, TP_NIVEL, TP_IDIOMA)');
   Sql.Add('VALUES');
   Sql.Add('(:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8)');
   Parameters.ParamByName('P1').Value := Edit1.Text;
   Parameters.ParamByName('P2').Value := Edit2.Text;
   Parameters.ParamByName('P3').Value := Edit3.Text;
   Parameters.ParamByName('P4').Value := Edit4.Text;
   Parameters.ParamByName('P5').Value := Edit5.Text;
   Parameters.ParamByName('P6').Value := ComboBox2.ItemIndex+1;
   Parameters.ParamByName('P7').Value := ComboBox3.ItemIndex+1;
   Case ComboBox1.ItemIndex of
     0: Parameters.ParamByName('P8').Value := 'US';
     1: Parameters.ParamByName('P8').Value := 'PT';
     2: Parameters.ParamByName('P8').Value := 'ES';
     3: Parameters.ParamByName('P8').Value := 'IT';
     4: Parameters.ParamByName('P8').Value := 'FR';
     5: Parameters.ParamByName('P8').Value := 'AL';
   End;
   ExecSQL;
 End;
 Close;

My question is: What must I do to recored the information only after the animation having ended?

Thanks
Alexandre
alexhaifa
Junior Member
Junior Member
 
Posts: 35
Joined: November 22nd, 2005, 2:01 pm
Location: Brazil

Postby Kambiz » December 3rd, 2005, 6:15 pm

Please look for WaitFor method of the component in the readme.htm file.
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm

about animation

Postby alexhaifa » December 5th, 2005, 12:32 pm

Ok, I looked up in readme about waitfor

I understood so so, could you give me an example?

Assistent.StopAll;
Assistent.Play(aaDoMagic);

I should put here the code, Waitfor(aaDoMagic), something like this?

Thanks very much
alexhaifa
Junior Member
Junior Member
 
Posts: 35
Joined: November 22nd, 2005, 2:01 pm
Location: Brazil


Return to DELPHI AREA Products

Who is online

Users browsing this forum: No registered users and 1 guest