Jump to content


Photo

Screen Mask (long process solution) with 8 themes.

screenmask hold screen mask screen message

  • Please log in to reply
25 replies to this topic

#1 Fenix

Fenix

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 258 posts
  • LocationBrazil

Posted 17 February 2016 - 08:46 PM

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. :D
 
Install the package and then make test with sample.
In this component I use:
 
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.

 

post-1507-0-76394600-1455809164.jpg

post-1507-0-94935300-1455808937.jpg

  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

Attached Files


  • 3
Delphi Berlin
uniGui 1.0.0.1410
Windows Server 2012 64bit IIS

#2 mico

mico

    Newbie

  • Members
  • Pip
  • 2 posts

Posted 18 February 2016 - 01:03 AM

thanks


  • 0

#3 majori

majori

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 123 posts

Posted 18 February 2016 - 06:03 AM

tnx


  • 0

#4 Oscar Flor

Oscar Flor

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 140 posts
  • LocationAsuncion

Posted 18 February 2016 - 01:21 PM

;)


  • 0

Oscar Flor
Sebaot Software


#5 Ronny Encarnacion

Ronny Encarnacion

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 507 posts

Posted 18 February 2016 - 02:01 PM

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

 

 

Attached Files


  • 0

Ronny Encarnacion


#6 Fenix

Fenix

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 258 posts
  • LocationBrazil

Posted 18 February 2016 - 03:15 PM

Hi Ronny

 

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

Also have add in servermodule->CustomFiles.

Attached Files


  • 0
Delphi Berlin
uniGui 1.0.0.1410
Windows Server 2012 64bit IIS

#7 Cristiano Testai

Cristiano Testai

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 359 posts
  • LocationBrazil

Posted 19 February 2016 - 11:58 AM

 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.

  • 0

#8 Fenix

Fenix

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 258 posts
  • LocationBrazil

Posted 19 February 2016 - 02:24 PM

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.


  • 0
Delphi Berlin
uniGui 1.0.0.1410
Windows Server 2012 64bit IIS

#9 Cristiano Testai

Cristiano Testai

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 359 posts
  • LocationBrazil

Posted 19 February 2016 - 03:53 PM

  Great Fenix, 

 

  Thanks for sharing.

 

  Regards,


  • 0

#10 Ronny Encarnacion

Ronny Encarnacion

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 507 posts

Posted 19 February 2016 - 08:34 PM

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

Any other clue ?

 

Thanks 


  • 0

Ronny Encarnacion


#11 Fenix

Fenix

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 258 posts
  • LocationBrazil

Posted 19 February 2016 - 08:41 PM

Hi Ronny,

 

Do you could make test case?

 

Regards


  • 0
Delphi Berlin
uniGui 1.0.0.1410
Windows Server 2012 64bit IIS

#12 AlexM123

AlexM123

    Member

  • uniGUI Subscriber
  • PipPip
  • 18 posts

Posted 25 February 2016 - 02:08 PM

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.


  • 0

#13 Fenix

Fenix

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 258 posts
  • LocationBrazil

Posted 25 February 2016 - 02:49 PM

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.


  • 0
Delphi Berlin
uniGui 1.0.0.1410
Windows Server 2012 64bit IIS

#14 AlexM123

AlexM123

    Member

  • uniGUI Subscriber
  • PipPip
  • 18 posts

Posted 25 February 2016 - 02:55 PM

Dear Fenix,

I have set MainFormDisplayMode to mfPage and it works now.

Thank you.


  • 0

#15 erdal

erdal

    Active Member

  • uniGUI Subscriber
  • PipPipPip
  • 52 posts

Posted 06 July 2016 - 12:27 AM

i could not install the component.

delphi xe10 seatle

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


  • 0

#16 Delphi Developer

Delphi Developer

    Advanced Member

  • Moderators
  • 3430 posts

Posted 06 July 2016 - 06:43 AM

Hi,

 

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

*** Breaking Change ***

 

http://forums.unigui...e-15#entry32936

 

Best regards.


  • 0

#17 erdal

erdal

    Active Member

  • uniGUI Subscriber
  • PipPipPip
  • 52 posts

Posted 06 July 2016 - 12:23 PM

fine thanx.


  • 0

#18 Fenix

Fenix

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 258 posts
  • LocationBrazil

Posted 06 July 2016 - 01:16 PM

Hi guys!

 

Update

  0.0.2 - Compatible version 0.99.95.1308 unigui
        - fix mask in mode windows
 
Best regards

  • 0
Delphi Berlin
uniGui 1.0.0.1410
Windows Server 2012 64bit IIS

#19 Beginner

Beginner

    Active Member

  • Members
  • PipPipPip
  • 50 posts

Posted 14 July 2016 - 06:08 PM

Fenix good job!

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


  • 0

#20 Ronny Encarnacion

Ronny Encarnacion

    Advanced Member

  • uniGUI Subscriber
  • PipPipPipPip
  • 507 posts

Posted 14 July 2016 - 06:21 PM

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

 

Thanks 


  • 0

Ronny Encarnacion






Also tagged with one or more of these keywords: screenmask, hold, screen mask, screen message

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users