Stefan's Corner

MESSAGE DIALOG COMPONENT 1.1
Available since 25/Oct/1999

TssDialog is component, used for displaying more customizable message dialogs than standard windows.

MAIN FEATURES:
(new 1.1) Easy Localization
Display standard (Question, Error, Information, Exclamation) or custom picture;
Fixed or auto height of message window
Fixed or auto width of button; in case of auto buttons fit the window;
Custom Message font;
Setup buttons separately;
Set order of buttons;
Set DEFAULT button;
Set CANCEL button;
Design time test of dialog (double-click on component);
FUNCTION FOR DIRECT CALL TO TssDialog:

function ssMessageDlg(
     AIconType: TssIconType;
     const ACaption, AMessage: string;
     const AButtons: array of TssDialogButtonKind;
     ADefaultButton: integer = -1;
     ACancelButton: integer = -1;
     APositionX: TssDialogPosX = dpxCenter;
     APositionY: TssDialogPosY = dpyCenter): TModalResult;
*note that default values of parameters are available only for Delphi 4

TssIconType = (itCustom, itInformation, itConfirmation, itError, itExclamation);

TssDialogButtonKind = (dbOK, dbCancel, dbYes, dbNo, dbClose, dbAbort, dbRetry, dbIgnore, dbAll, dbYesToAll, dbNoToAll, dbHelp);

TssDialogButtonSet = set of TssDialogButtonKind;

TssDialogPosX = (dpxLeft, dpxCenter, dpxRight, dpxCustom);

TssDialogPosY = (dpyTop, dpyCenter, dpyBottom, dpyCustom);

HOW TO USE:
(new 1.1) To add new and/or edit Default Buttons captions:
   - Open ssDialogsRes.pas;
   - Add new value in TssDialogLanguage type;
   - Add Default captions in _CAPTIONS const;
  (new 1.1) Use variable ssDialogLanguage (declared in ssDialogsRes.pas) to change language for Default Buttons;
Place component on Form
Use component editor (pop-up window of component) to add standard buttons
Use Test from component editor to display dialog in design time
Edit Buttons collection to edit, rearange defined buttons or to add custom buttons
PUBLISHED PROPERTIES AND METHODS:
ssDialog

PROPERTIES
Caption - Caption of Message Dialog window
MessageText - Text of Message
Buttons - Buttons that will appear in Dialog window
Icon - Icon that will be displayed in Dialog window (you can set it only if IconType = itCustom)
IconsSet - currently there are 3 sets of Icons
PositionX - Horizontal position of Dialog window
PositionY - Vertical position of Dialog window
ButtonWidth - Width of Buttons
ButtonHeight - Height of Buttons
ButtonTop - Position where buttons will appear - relative to bottom of Dialog window
ButtonSpace - Space between buttons
AutoButtonWidth - If true width of buttons will be calculated to fit in Dialog window
Width - Width of Message Dialog window
Height - Height of Message Dialog window
AutoHeight - If true property Height will be ignored and height of window will be calculated depend on Icon and MessageText
IconType - see TssIconType for possible values
Font - Font of Message Text
METHODS
function Execute: TModalResult - Displays Dialog window
ssDialogButton

PROPERTIES
Caption - Caption of Button
Glyph - Glyph of Button
NumGlyphs - Number of Glyphs
IsDefault - Shows that button is default or not (will be focused on display of window)
IsCancel - Shows that button is default or not (will be pressed if user press ESC)
ModalResult - Modal result of displaying of Dialog
FREE & SHARE STATUS:

This component is free for both commercial and non-commercial use.
If you want to have a source you can become registered user or buy "Multi Language Components" AND "Keep Component Properties" and email me.

 

Copyright © 1999, Stefan Stefanov, last updated 25 Октомври 1999