Esempio n. 1
0
 public static ushort Yen_MessageDlg(string xMsg, string xCaption, MessageBoxIcon xDlgType, TMsgDlgButtons xButtons, ushort FontSize)
 {
     return(Yen_MessageDlg(xMsg, xCaption, xDlgType, xButtons, FontSize, ""));
 }
Esempio n. 2
0
        public static ushort Yen_MessageDlg(string xMsg, string xCaption, MessageBoxIcon xDlgType, TMsgDlgButtons xButtons, ushort FontSize, string FontName)
        {
            ushort result;

            //@ Unsupported function or procedure: 'CreateMessageDialog'
            _wvar1 = CreateMessageDialog(xMsg, xDlgType, xButtons);
            try {
                //@ Unsupported property or method(D): 'Caption'
                _wvar1.Caption = xCaption;
                if (FontName != "")
                {
                    //@ Unsupported property or method(D): 'Font'
                    //@ Unsupported property or method(D): 'Name'
                    _wvar1.Font.Name = FontName;
                }
                if (FontSize > 0)
                {
                    //@ Unsupported property or method(D): 'Font'
                    //@ Unsupported property or method(D): 'Size'
                    _wvar1.Font.Size = FontSize;
                }
                //@ Unsupported property or method(C): 'Restore'
                Application.Restore;
                //@ Unsupported property or method(C): 'BringToFront'
                Application.BringToFront;
                //@ Unsupported property or method(D): 'ShowModal'
                result = _wvar1.ShowModal;
            } finally {
                //@ Unsupported property or method(D): 'Free'
                _wvar1.Free;
            }
            return(result);
        }