CGDevTools Forum

Hi,
As variables IWCGMsgDlgTitles and IWCGMsgButtonCaptions in IWCGJQMessageDlg are global i face the problem of different sessions with different languages at the same time.

I had no time to deeply thing on how it would be the best so i modify the source to meet my own requirement which can be different to other users.

So i quickly modified the source to add

in types

Code: Select all

  TIWCGMsgDialogGetButtonText = TFunc<TMsgDlgBtn, string>;
  TIWCGMsgDialogGetTitle = TFunc<TMsgDlgType, string>;


In interface

Code: Select all

var
  OnMsgDlgGetButtonText: TIWCGMsgDialogGetButtonText;
  OnMsgDlgGetTitle: TIWCGMsgDialogGetTitle;


In TIWCGJQMsgDialog.SetTitle

Code: Select all

    if Assigned(OnMsgDlgGetTitle) then
      JQDialogOptions.Title := OnMsgDlgGetTitle(DlgType)
    else
      JQDialogOptions.Title := IWCGMsgDlgTitles[DlgType];


in TIWCGJQMsgDialog.CreateButtons;

Code: Select all

      if Assigned(OnMsgDlgGetButtonText) then
        Button.Text := OnMsgDlgGetButtonText(DlgBtn)
      else
        Button.Text := IWCGMsgButtonCaptions[DlgBtn];


Could you please think about a more general modification