Screen Mask (long process solution) with 8 themes.

[Sistema Fenix]

Hi guys!

 

A long time I'm trying to create a screen lock (long process), today I managed with callback and share with all the component.

 

I hope it helps you, is helping here.

 

Install the package and then make test with sample.

In this component I use:

https://sdkcarlos.github.io/sites/holdon.html   

 

With 8 themes:

1. sk-rect
2. sk-bounce
3. sk-folding-cube
4. sk-circle
5. sk-dot
6. sk-cube
7. sk-falding-circle
8. sk-cube-grid

• ​Random (I created this option to change theme every Hold.MaskShow)

Do not forget to place the files (HoldOn.min.js and HoldOn.min.css) in the files folder of your program and refer in servermodule->CustomFiles.

 

  Hold.MaskShow('Please wait... (3 seconds)',
  procedure(const Mask:Boolean)
  begin
    if Mask then
    begin
      sleep(3000);
       Hold.MaskHide;
    end;
  end
  );

update:

0.0.2 - 2016-07-06

 

 

Best regards

SFUni.zip

[mico]

thanks

[molla2005b]

tnx

[Darth Florus]

[rencarnacion]

Hi Fenix, I was making test with component but I got error, I'm Going to Attach an image with the error 

 

 

[Sistema Fenix]

Hi Ronny

 

Do you added HoldOn.min.js and HoldOn.min.css in files folder?

Also have add in servermodule->CustomFiles.

[cristianotestai]

 Hi Fenix,

 

 It is possible to use this component in place of the screen mask current in cases where i do not explicitly call Hold.MaskShow ()?

 For example, in components that use the property Screen Mask in the object inspector.

 

 Thanks.

[Sistema Fenix]

Hi Cristiano

 

The primary use this component is call manual of the hold, where do not is possible to use screen mask default unigui.

But to work is necessary the Hold.MaskShow and to close in callback with hold.maskhide.

Example:

Procedure TFMainForm.doDeleteAll;
begin
 cds.first;
 while not cds.eof do
 begin
  cds.delete;
 end;
end;

procedure TFMainForm.eEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if (Key = VK_F9) then
 begin
  Hold.MaskShow('Please wait..',
   procedure(const Mask:Boolean)
   begin
    if Mask then
    begin
       doDeleteAll;
       Hold.MaskHide;
    end;
   end
   );
  end;
end;

You could even replace using this method but do not know if there is a way to make automatic.

I use on others component that use jquery and I needed one method the hold screen, this was the solution.

I still have a lot to learn in the world web application.

 

Best regards.

[cristianotestai]

  Great Fenix, 

 

  Thanks for sharing.

 

  Regards,

[rencarnacion]

Hi, Fenix I all ready done as you say but still get the same error 

Any other clue ?

 

Thanks 

[Sistema Fenix]

Hi Ronny,

 

Do you could make test case?

 

Regards

[AlexM123]

Dear Fenix,

Thank you for the solution.

Could you help me.

I am trying to reproduce your example but something is wrong.

the Mask is showing behind the main form.

So the main form is enabled while mask showing.

[Sistema Fenix]

Hi Alexm123,

 

In your servermodule->MainFormDisplayMode is mfPage or mfWindow?

If mfwindow really is happing this, I have not yet discovered how to solve it.

I will do some tests and when I discovered return.

 

Best regards.

[AlexM123]

Dear Fenix,

I have set MainFormDisplayMode to mfPage and it works now.

Thank you.

[erdal]

i could not install the component.

delphi xe10 seatle

sfuni\source\sfunihold.pas(65,37) : error 2010 : e2010 incopatible types : 'Tunistring' and 'Tstrings' 

[Sherzod]

Hi,

 

*** Breaking Change ***
OnAjaxEvent() parameter list has changed:
Old: (Params: TStrings)
New: (Params: TUniStrings)
*** Breaking Change ***

 

http://forums.unigui.com/index.php?/topic/5051-version-099/page-15&do=findComment&comment=32936

 

Best regards.

[erdal]

fine thanx.

[Sistema Fenix]

Hi guys!

 

Update

  0.0.2 - Compatible version 0.99.95.1308 unigui

        - fix mask in mode windows

 

Best regards

[Beginner]

Fenix good job!

Can you show sample how notify left side or top side i mean push messages

[rencarnacion]

Hi Fenix excuseme, for a late answer, I found the error 

 

Thanks 

[Sistema Fenix]

Hi Beginner!

 

I use noty.

http://ned.im/noty

 

I can not send example, because there is a component of it to buy the forum.

http://forums.unigui.com/index.php?/topic/4666-unispecial-component/

 

But it is simple, note the code since I have made available and implement the noty.

 

Best regards.

[zieborg]

Thank u very much Fenix

Great Job, I've been looking for this components

[rtalmeida]

Fenix, Can I use this component in my commercial version?

[Sistema Fenix]

Hi, Rinaldo.

 

You can.

This version is old, the updates only in version commercial.

Best regards.

[Beginner]

Fenix

Can you  update for some one or two your components for free for thanks? For beginners and for other developers