Dock and Align layout and ScreenMask

[arilotta]

Hi all,

I'm trying to show the screen mask on a form with the Dock and Align layout. It seems that the screen mask covers just

the panel aligned to Client (alClient).

To reproduce just add the following event to the UniPanelClient panel (UniPanel2) on the Dock&Align demo:

 

procedure TMainForm.UniPanel2Click(Sender: TObject);

begin

  self.ShowMask('test');

end;

 

Is there a workaround ?

 

Thanks

Andrea

 

 

[Sherzod]

Hi,

 

As a workaround, maybe you need to use this approach for now, for example:

procedure TMainForm.UniPanel2Click(Sender: TObject);
begin
  //self.ShowMask('test');
  UniSession.AddJS('MainForm.form.mask("Test")');
end;

Best regards,

[arilotta]

Thank you Delphi Dev super as always.

For anyone interested, to applyt the mask to a form different than the main form:

 

UniSession.AddJS(self.Name+'.form.mask("'+UniServerModule.ServerMessages.LoadingMessage+'")');

 

And to unmask:

 

UniSession.AddJS(self.Name+'.form.unmask()');

[Point]

hello,

load mask only once when before create a frame and hide mask after created.

procedure TAframe.UniFrameCreate(Sender: TObject);
begin
  UniSession.AddJS('MainForm.form.mask()');
end;

procedure TfmToolbarThemes.UniFrameReady(Sender: TObject);
begin
  UniSession.AddJS('MainForm.form.unmask()');
end;

-> Mask not shown.

====

abutton on design time => screenmask.enabled = true;

procedure mainform.abuttonOnClick(Sender: TObject);
begin
  if not frame created then begin
    do create A frame
    AButton.screenmask.enabled = false;
  end else ...
end;

-> mask keep showing every click button.

any suggestion where i have to put mask and unmask.

thanks.

[Point]

 

13 minutes ago, Point said:

hello,

load mask only once when before create a frame and hide mask after created.

procedure TAframe.UniFrameCreate(Sender: TObject);
begin
  UniSession.AddJS('MainForm.form.mask()');
end;

procedure TfmToolbarThemes.UniFrameReady(Sender: TObject);
begin
  UniSession.AddJS('MainForm.form.unmask()');
end;

-> Mask not shown.

====

abutton on design time => screenmask.enabled = true;

procedure mainform.abuttonOnClick(Sender: TObject);
begin
  if not frame created then begin
    do create A frame
    AButton.screenmask.enabled = false;
  end else ...
end;

-> mask keep showing every click button.

any suggestion where i have to put mask and unmask.

thanks.

ps : i am not using Synchronous Operations.

[Point]

hi @Sherzod, is it impossible in asynchronous ?

[Sherzod]

Hi @Point

If I understand you correctly, you can use ClientEvents.

[Point]

i was try it but still not success, would you mind give me some sample code ?

[Sherzod]

Can you make a simple testcase!?

[Point]

ehmm, i think too hard and i miss something in my code. now worked !.

sorry mr sherzod.

[Sherzod]

No problem. So, problem solved? 

[Point]

yes, thanks you