IWCGMessageDlg Autosize

[feland]

Hi,

I used the following instruction to see a error message.

Code: Select all

IWCGMessageDlg('EXCEPTION: Error in btnInsertJQButtonOptionsClick: ' + e.Message, mtError, [mbOK], nil);

But if a message text in more long i obtain the result in picture. How can i solve my problem??

Best Regards,
feland

[Alexander Bulei]

Hi feland,

In this case, you need create and customize the dialog by yourself.
Here you have the simple example:

delphi code

procedure TIWForm10.IWCGJQButton2JQButtonOptionsClick(Sender: TObject; AParams: TStringList);
var
  MyDlg: TIWCGJQMsgDialog;
begin
  MyDlg:= IWCGCreateMessageDialog('<long-message-here>',mtError,[mbYes], nil);
  MyDlg.JQDialogOptions.AutoHeight:= True;
  MyDlg.Label_.AutoSize:= True;
  MyDlg.Label_.StyleRenderOptions.RenderPosition:= False;
  MyDlg.Label_.StyleRenderOptions.RenderSize:= False;
  MyDlg.Label_.StyleRenderOptions.RenderPadding:= False;
  MyDlg.Label_.StyleRenderOptions.RenderBorder:= False;
  MyDlg.Label_.Css:= MyDlg.Label_.Css + ' ui-dialog-label-autosize';
  MyDlg.AjaxReRender(True,False);
end;

Best Regards.

[feland]

Don't work.

I insert this string to test 'rteywdfiywdfidwfitweyiftewirtfwiertfiewtfwerilti9ròuewirgweriògyeoòrugyweoòruruerguòewroiguyweilrògu'

[Alexander Bulei]

Hi feland,

I insert this string to test 'rteywdfiywdfidwfitweyiftewirtfwiertfiewtfwerilti9ròuewirgweriògyeoòrugyweoòruruerguòewroiguyweilrògu'

Of course your message will contain "spaces". lol

Best Regards.

[feland]

Thanks