InputDialog - Works exactly like Delphi's MessageDlgPos function.
InputQueryDialog - Works exactly like Delphi's InputBox function.
MessageDialog - Renamed from MsgDlg.
MessageDialogPos - Works exactly like Delphi's MessageDlg function.
mcButtonHeight
mcButtonSize
mcButtonSpacing
mcFontName
mcFontSize
mcFontStyle
mcGlyphSpacing
mcHorzMargin
mcHorzSpacing
mcUseGlyphs
mcVertMargin
mcVertSpacing
function InputDialog(const ACaption, APrompt, ADefault: string): string;
Works exactly like Delphi's MessageDlgPos function. finally
function InputQueryDialog(const ACaption, APrompt: string;
var Value: string): Boolean;
Works exactly like Delphi's InputBox function. Copyright (C) 1982-1997, Borland International, Inc.
function MessageDialog(const Msg: string; AType: TMsgDlgType;
AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;
Renamed from MsgDlg.pas 6/14/1998 Paul Rice to avoid conflict with others' work.} { MessageDlg Replacement v1.4 for Delphi } { (Delphi1 - Delphi3) } { } { Copyright © 1997 by BitSoft Development, L.L.C. } { All rights reserved } { } { Web: http://www.bitsoft.com } { E-mail: info@bitsoft.com } { Support: tech-support@bitsoft.com } {--------------------------------------------------------------------------} { Portions Copyright (C) 1982-1997, Borland International, Inc. } {--------------------------------------------------------------------------} { This file is distributed as freeware and without warranties of any kind. } { You can use it in your own applications at your own risk. } { See the License Agreement for more information. } {========================================================================== Public
function MessageDialogPos(const Msg: string; AType: TMsgDlgType;
AButtons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word;
Works exactly like Delphi's MessageDlg function.
mcButtonHeight = 16
mcButtonSize = 55
Works exactly like Delphi's InputQuery function. } { The following values can be changed either at the beginning of an } { application or before a call to the functions in this unit, to customize } { the resulting message box.
mcButtonSpacing = 8
mcFontName = 'MS Sans Serif'
mcFontSize = 8
mcFontStyle = []
mcGlyphSpacing = -1
mcHorzMargin = 8
mcHorzSpacing = 8
mcUseGlyphs = True
mcVertMargin = 6
mcVertSpacing = 8