Unit BSMsgdlg

Classes

Functions

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.

Types

Constants

mcButtonHeight
mcButtonSize
mcButtonSpacing
mcFontName
mcFontSize
mcFontStyle
mcGlyphSpacing
mcHorzMargin
mcHorzSpacing
mcUseGlyphs
mcVertMargin
mcVertSpacing

Variables


Functions


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.

Types


Constants

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


Variables