Jump to content

UniSpecial Component


Hayri ASLAN

Recommended Posts

  • 2 weeks later...

Hi Hayri / Farshad

 

This component pack is growing nicely

I think a 'sticky' posting would be useful  for this forum as the first post - To give a list of current components included and the cost along with a link to purchase url.

 

(Has XE8 installation been confirmed yet)

 

All the best

 

 

Dear HarryG

Thank you for your suggestion.

 

I will prepare a documentation for first post.

Link to comment
Share on other sites

I need help in UniSpWaitMe component ....

 

Using your example, when I run ShowWaitMe and Hide in the same procedure it does not show the Wait .... only if use in another procedure.

 

My need is:

 

Wait ... We do not wait for the user

 

Recordings in the database

 

Hide ....

 

 

Please, how do it?

 

 

 

Tfrm_waitme.UniButton1Click procedure (Sender: TObject);

begin

   with the UniSpWaitMe1

   begin

     Effect: = tWaitmeEffect (UniComboBox1.ItemIndex);

     WaitmeText: = UniEdit1.Text;

     Container: = UniPanel1.JSName;

     SizeW: = Round (UniNumberEdit2.Value);

     SizeH: = Round (UniNumberEdit1.Value);

     ShowWaitMe;

   end;

 

   UniPanel1.Refresh;

 

   sleep (5000);

 

   UniSpWaitMe1.HideWaitMe;

end;

Link to comment
Share on other sites

  • 1 month later...

I tried to fully noty demo.

:(

 

_rsov_(O73D,0);var n =
noty({
layout: 'topleft',
theme: 'defaultTheme',
type: 'information',
text: 'Noty Text',
dismissQueue: true,
template: '<div class="noty_message"><span class="noty_text"></span><div class="noty_close"></div></div>',
animation: {  
open: {height: 'toggle'},
close: {height: 'toggle'},
easing: 'swing',
speed: 500  
},  
timeout: 0,
force: false,
modal: false,
maxVisible: 5,
killer: true,
closeWith: ['click'],
buttons: false,
 callback : {
onShow: function() {
ajaxRequest(O77D, "onShow", ["notyid=+"noty_976033]);
},
afterShow: function() {
ajaxRequest(O77D, "afterShow", ["notyid=+"noty_976033]);
},
onClose: function() {
ajaxRequest(O77D, "onClose", ["notyid=+"noty_976033]);
},
afterClose: function() {
ajaxRequest(O77D, "afterClose", ["notyid=+"noty_976033]);
},
onCloseClick: function() {
ajaxRequest(O77D, "onCloseClick", ["notyid=+"noty_976033]);
}
}
 });

post-32-0-14923600-1445517546_thumb.jpg

Link to comment
Share on other sites

  • 4 weeks later...
  • 2 months later...
  • 3 months later...

 

very good
components interest me.
Please confirm Paypal and value.
How to upgrade, how will it work?
They are compatible with the latest versions of unigui?

 

 

You can pay via paypal with this link : https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=7GQA8LCCMHBAA

When i add some features, i am sending new version to buyers 

Yes it is compatible all unigui versions.

Link to comment
Share on other sites

You can pay via paypal with this link : https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=7GQA8LCCMHBAA

When i add some features, i am sending new version to buyers 

Yes it is compatible all unigui versions.

 

It would be possible to provide a means of payment that allows credit card? The paypal link provided is not accepting credit cards.

Link to comment
Share on other sites

My brother, I have a question.
In exmplo code, the process takes about almost one minute, but the waitme is not displayed when in the end I have the command hide.
 
However, if I remove the hide from the end of the block, it is displayed.
At what point the waitme will be displayed?
Only in the process end?

 

 

I need help in UniSpWaitMe component ....
 
Using your example, when I run ShowWaitMe and Hide in the same procedure it does not show the Wait .... only if use in another procedure.
 
My need is:
 
Wait ... We do not wait for the user
 
Recordings in the database
 
Hide ....
 
 
Please, how do it?
 
 
 
Tfrm_waitme.UniButton1Click procedure (Sender: TObject);
begin
   with the UniSpWaitMe1
   begin
     Effect: = tWaitmeEffect (UniComboBox1.ItemIndex);
     WaitmeText: = UniEdit1.Text;
     Container: = UniPanel1.JSName;
     SizeW: = Round (UniNumberEdit2.Value);
     SizeH: = Round (UniNumberEdit1.Value);
     ShowWaitMe;
   end;
 
   UniPanel1.Refresh;
 
   sleep (5000);
 
   UniSpWaitMe1.HideWaitMe;
end;

 

 

 

Is there any solution to the above case?

Link to comment
Share on other sites

procedure TUniFrameGrade.btnPesquisarClick(Sender: TObject);

var

    form:TUniForm;

    PercClasse:TPersistentClass;

begin

     Try

        UniSpWaitMe1.ShowWaitMe;

        PercClasse:= GetClass('TfrmFiltro');

        if PercClasse <> nil then

        begin

             try

                form := TUniFormClass(PercClasse).Create(UniApplication);

                datamodel.link.Util.PassaValor(form,'XML',XML);

                datamodel.link.Util.PassaValor(form,'titulo',cClasse.titulo);

                if datamodel.link.Util.ExecutaMetodo(form,'prepara') then

                   form.ShowModal(CallbackFiltro) else

                form.Close;

             except

              on e:exception do

                 begin

                      UniSpWaitMe1.HideWaitMe;

                      datamodel.link.Mensagem.MsgErro(e.Message);

                 end;

             end;

        end;

     Finally

        UniTimer1.Enabled := True;

     End;

end;

 


Are there any practical example of waitme use, without having to place a button to show and another to hide?

I'm trying to show pending before creating another form, and does not display.

Ideally, the end of the hide waiting process.

I even put a team with 1000 interval to hide after the process, the waiting is only shown when the process ends.

I wish it were shown when it is estartado the ShowWaitMe.

Any solution?

 


¿Hay algún ejemplo práctico de uso waitme, sin tener que poner un botón para mostrar y otro para ocultar?

Estoy tratando de mostrar a la espera antes de crear otra form, y no se muestra.

 

Incluso puse un unitimer con 1.000 intervalo de ocultar después del proceso, pero sólo se muestra cuando finaliza el proceso.

Me gustaría que se muestra cuando es estartado la ShowWaitMe.

Cualquier solución?


Link to comment
Share on other sites

Hi,

 

i added some feature to spwaitme.

 

Please do this steps :

 

define procedure : 

 

 
  For Example
 procedure prcd_sleep;
---
 
procedure Tfrm_waitme.prcd_sleep;
begin
   Sleep(2000);
end;

 

Set This : 

 with UniSpWaitMe1 do
  begin
    ExecuteThis:=prcd_sleep;
    ExecuteProcedure:=True;
    HideAfterExecute:=True;
    ShowWaitMe;
  end;

i sent new pas file to your mail address.

 

change file and recompile.

Link to comment
Share on other sites

Is there any way that I can send to close all wait?
So do not get caught in case of errors in processing when running through ExecuteThis
 
with UniSpWaitMe1 do
begin
ExecuteThis:=prcd_sleep; ---- procedure (if an error occurs wait gets stuck)
ExecuteProcedure:=True;
HideAfterExecute:=True;
ShowWaitMe;
end;
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...