Unit MessDlgs

Used Units:

Used in interface: System, SysInit, Windows, SysUtils, Consts, Classes, Controls, Graphics, Dialogs, Forms, StdCtrls, ExtCtrls, XiProgressBar, XiPanel, XiButton
Used in implementation: Types

Description:

Message/Input dialogs

List of Variables:

Global Variables: MsgOptions
File-Local Variables: FormRegion, StatusForm, StatusLabel, StatusProgress

List of Constants:

Global Constants: btncsCustom, btncsDesert, btncsGrass, btncsNeoDesert, btncsNeoGrass, btncsNeoRose, btncsNeoSilver, btncsNeoSky, btncsNeoSun, btncsRose, btncsSilver, btncsSky, btncsSun, ButtonCaptionsD, ButtonCaptionsE, ButtonCaptionsF, ButtonCaptionsG, ButtonCaptionsGr, ButtonCaptionsI, ButtonCaptionsP, ButtonCaptionsR, ButtonCaptionsS, ButtonCaptionsT, CaptionsD, CaptionsE, CaptionsF, CaptionsG, CaptionsGr, CaptionsI, CaptionsP, CaptionsR, CaptionsS, CaptionsT, ltDutch, ltEnglish, ltFrench, ltGerman, ltGreek, ltItalian, ltPortuguese, ltRussian, ltSpanish, ltTurkish, pnlcsCustom, pnlcsDesert, pnlcsGrass, pnlcsRose, pnlcsSilver, pnlcsSky, pnlcsSun, procsCustom, procsDesert, procsGrass, procsHackers, procsMetal, procsNight, procsRose, procsSilver, procsSky, procsSun, procsToxic, procsVelvet, procsViolet, sCancelCaptionD, sCancelCaptionE, sCancelCaptionF, sCancelCaptionG, sCancelCaptionGr, sCancelCaptionI, sCancelCaptionP, sCancelCaptionR, sCancelCaptionS, sCancelCaptionT
File-Local Constants: None

List of Simple Types:

Global Simple Types: TButtonColorScheme, TLangType, TPanelColorScheme, TPercentage, TProgressColorScheme
File-Local Simple Types: None

List of Records:

Global Records: TMsgOptions
File-Local Records: None

List of Classes:

Global Classes: None
File-Local Classes: TMessageForm

List of Functions:

Global Functions:
unit interface procedure CloseStatus
unit interface function CreateMessageDialogI
unit interface procedure DrawGradient
unit interface function InputBox
unit interface function InputBoxI
unit interface function InputQuery
unit interface function InputQueryI
unit interface function MessageDlg
unit interface function MessageDlgI
unit interface function MessageDlgPosI
unit interface procedure ShowError
unit interface procedure ShowMessage
unit interface procedure ShowStatus
-------- Status ---------------------
unit interface procedure ShowStatusPos
unit interface procedure UpdateStatus
unit interface procedure UpdateStatus
unit interface procedure UpdateStatus
File-Local Functions:
unit implementation procedure CheckStatus
unit implementation procedure finalization
unit implementation function GetAveCharSize
unit implementation procedure initialization
unit implementation function Max

Variables:

unit implementation FormRegion: HRGN
Used in
TMessageForm.Destroy, CreateMessageDialogI, InputQueryI
unit interface MsgOptions: TMsgOptions
Used in
TMessageForm.CreateNew, TMessageForm.PaintGradient, CreateMessageDialogI, finalization, initialization, InputBox, InputQuery, InputQueryI, MessageDlg, ShowStatus, ShowStatusPos
unit implementation StatusForm: TForm = nil
Used in
CheckStatus, CloseStatus, ShowStatusPos, UpdateStatus, UpdateStatus
unit implementation StatusLabel: TLabel
Used in
ShowStatusPos, UpdateStatus
unit implementation StatusProgress: TXiProgressBar
Used in
ShowStatusPos, UpdateStatus

Constants:

unit interface btncsCustom = TButtonColorScheme( 12)
unit interface btncsDesert = TButtonColorScheme( 6)
unit interface btncsGrass = TButtonColorScheme( 7)
unit interface btncsNeoDesert = TButtonColorScheme( 0)
unit interface btncsNeoGrass = TButtonColorScheme( 2)
unit interface btncsNeoRose = TButtonColorScheme( 4)
unit interface btncsNeoSilver = TButtonColorScheme( 3)
unit interface btncsNeoSky = TButtonColorScheme( 1)
unit interface btncsNeoSun = TButtonColorScheme( 5)
unit interface btncsRose = TButtonColorScheme( 10)
unit interface btncsSilver = TButtonColorScheme( 11)
unit interface btncsSky = TButtonColorScheme( 8)
Used in
initialization
unit interface btncsSun = TButtonColorScheme( 9)
unit interface ButtonCaptionsD: array [ TMsgDlgBtn] of String = ( 'Ja', 'Nee', 'OK', 'Annuleren', 'Afbreken', 'Herhalen', 'Negeren', 'Alles', 'Nee op alles', 'Ja op alles', '?')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsE: array [ TMsgDlgBtn] of String = ( 'Yes', 'No', 'OK', 'Cancel', 'Abort', 'Retry', 'Ignore', 'All', 'No to all', 'Yes to all', 'Help')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsF: array [ TMsgDlgBtn] of String = ( 'Oui', 'Non', 'OK', 'Annuler', 'Abandonner', 'Réessayer', 'Ignorer', 'Tout', 'Non pour tous', 'Oui pour tous', 'Aide')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsG: array [ TMsgDlgBtn] of String = ( 'Ja', 'Nein', 'OK', 'Abbrechen', 'Abbrechen', 'Wiederholen', 'Ignorieren', 'Alle', 'Nein zu allen', 'Ja zu allen', 'Hilfe')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsGr: array [ TMsgDlgBtn] of String = ( 'Íáß', '¼÷é', 'ÅíôÜîåé', '¢êõñï', '¢êýñùóç', 'ÐñïóðÜèåéá', 'Áãíþçóç', '¼ëá', '¼÷é óå üëá', 'Íáß óå üëá', 'ÂïÞèåéá')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsI: array [ TMsgDlgBtn] of String = ( 'Si', 'No', 'OK', 'Annulla', 'Termina', 'Riprova', 'Ignora', 'Tutti', 'No a tutti', 'Si a tutti', 'Aiuto!')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsP: array [ TMsgDlgBtn] of String = ( 'Sim', 'Não', 'OK', 'Cancela', 'Aborta', 'Tenta Novamente', 'Ignora', 'Tudo', 'Não para Tudo', 'Sim para Tudo', 'Ajuda')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsR: array [ TMsgDlgBtn] of String = ( 'Äà', 'Íåò', 'OK', 'Îòìåíà', 'Ñòîï', 'Ïîâòîð', 'Ïðîïóñòèòü', 'Âñå', 'Íåò äëÿ âñåõ', 'Äà äëÿ âñåõ', 'Ñïðàâêà')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsS: array [ TMsgDlgBtn] of String = ( 'Si', 'No', 'OK', 'Cancelar', 'Abortar', 'Reintentar', 'Ignorar', 'Todo', 'No a todo', 'Si a todo', 'Ayuda')
Used in
CreateMessageDialogI
unit interface ButtonCaptionsT: array [ TMsgDlgBtn] of String = ( 'Evet', 'Hayýr', 'TAMAM', 'Vazgeç', 'Durdur', 'Tekrar', 'Ýptal', 'Hepsi', 'Hepsine hayýr', 'Hepsine evet', 'Yardým')
Used in
CreateMessageDialogI
unit interface CaptionsD: array [ TMsgDlgType] of String = ( 'Waarschuwing', 'Fout', 'Informatie', 'Bevestiging', '')
Used in
CreateMessageDialogI
unit interface CaptionsE: array [ TMsgDlgType] of String = ( 'Warning', 'Error', 'Information', 'Confirm', '')
Used in
CreateMessageDialogI
unit interface CaptionsF: array [ TMsgDlgType] of String = ( 'Avertissement', 'Erreur', 'Information', 'Confirmation', '')
Used in
CreateMessageDialogI
unit interface CaptionsG: array [ TMsgDlgType] of String = ( 'Warnung', 'Fehler', 'Information', 'Bestätigung', '')
Used in
CreateMessageDialogI
unit interface CaptionsGr: array [ TMsgDlgType] of String = ( 'Ðñïóï÷Þ!', 'ËÜèïò', 'Ðëçñïöïñßá', 'Åðéâåâáßùóç', '')
Used in
CreateMessageDialogI
unit interface CaptionsI: array [ TMsgDlgType] of String = ( 'Attenzione', 'Errore', 'Informazione', 'Conferma', '')
Used in
CreateMessageDialogI
unit interface CaptionsP: array [ TMsgDlgType] of String = ( 'Aviso', 'Erro', 'Informação', 'Confirmação', '')
Used in
CreateMessageDialogI
unit interface CaptionsR: array [ TMsgDlgType] of String = ( 'Ïðåäóïðåæäåíèå', 'Îøèáêà', 'Èíôîðìàöèÿ', 'Ïîäòâåðæäåíèå', '')
Used in
CreateMessageDialogI
unit interface CaptionsS: array [ TMsgDlgType] of String = ( 'Precaución', 'Error', 'Información', 'Confirmación', '')
Used in
CreateMessageDialogI
unit interface CaptionsT: array [ TMsgDlgType] of String = ( 'Uyarý', 'Hata', 'Bilgi', 'Doðrulama', '')
Used in
CreateMessageDialogI
unit interface ltDutch = TLangType( 5)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltEnglish = TLangType( 0)
Used in
initialization
unit interface ltFrench = TLangType( 6)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltGerman = TLangType( 4)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltGreek = TLangType( 7)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltItalian = TLangType( 9)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltPortuguese = TLangType( 2)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltRussian = TLangType( 1)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltSpanish = TLangType( 8)
Used in
CreateMessageDialogI, InputQueryI
unit interface ltTurkish = TLangType( 3)
Used in
CreateMessageDialogI, InputQueryI
unit interface pnlcsCustom = TPanelColorScheme( 0)
unit interface pnlcsDesert = TPanelColorScheme( 1)
unit interface pnlcsGrass = TPanelColorScheme( 2)
unit interface pnlcsRose = TPanelColorScheme( 5)
unit interface pnlcsSilver = TPanelColorScheme( 3)
unit interface pnlcsSky = TPanelColorScheme( 4)
Used in
initialization
unit interface pnlcsSun = TPanelColorScheme( 6)
unit interface procsCustom = TProgressColorScheme( 0)
unit interface procsDesert = TProgressColorScheme( 1)
unit interface procsGrass = TProgressColorScheme( 2)
unit interface procsHackers = TProgressColorScheme( 7)
unit interface procsMetal = TProgressColorScheme( 10)
unit interface procsNight = TProgressColorScheme( 8)
unit interface procsRose = TProgressColorScheme( 5)
unit interface procsSilver = TProgressColorScheme( 3)
unit interface procsSky = TProgressColorScheme( 4)
Used in
initialization
unit interface procsSun = TProgressColorScheme( 6)
unit interface procsToxic = TProgressColorScheme( 12)
unit interface procsVelvet = TProgressColorScheme( 9)
unit interface procsViolet = TProgressColorScheme( 11)
unit interface sCancelCaptionD = 'Annuleren'
Used in
InputQueryI
unit interface sCancelCaptionE = 'Cancel'
Used in
InputQueryI
unit interface sCancelCaptionF = 'Annuler'
Used in
InputQueryI
unit interface sCancelCaptionG = 'Abbrechen'
Used in
InputQueryI
unit interface sCancelCaptionGr = '¢êõñï'
Used in
InputQueryI
unit interface sCancelCaptionI = 'Annulla'
Used in
InputQueryI
unit interface sCancelCaptionP = 'Cancela'
Used in
InputQueryI
unit interface sCancelCaptionR = 'Îòìåíà'
Used in
InputQueryI
unit interface sCancelCaptionS = 'Cancelar'
Used in
InputQueryI
unit interface sCancelCaptionT = 'Vazgeç'
Used in
InputQueryI

Simple Types:

unit interface TButtonColorScheme = ( btncsNeoDesert, btncsNeoSky, btncsNeoGrass, btncsNeoSilver, btncsNeoRose, btncsNeoSun, btncsDesert, btncsGrass, btncsSky, btncsSun, btncsRose, btncsSilver, btncsCustom)
unit interface TLangType = ( ltEnglish, ltRussian, ltPortuguese, ltTurkish, ltGerman, ltDutch, ltFrench, ltGreek, ltSpanish, ltItalian)
unit interface TPanelColorScheme = ( pnlcsCustom, pnlcsDesert, pnlcsGrass, pnlcsSilver, pnlcsSky, pnlcsRose, pnlcsSun)
unit interface TPercentage = 1.. 100
unit interface TProgressColorScheme = ( procsCustom, procsDesert, procsGrass, procsSilver, procsSky, procsRose, procsSun, procsHackers, procsNight, procsVelvet, procsMetal, procsViolet, procsToxic)

Functions:

unit implementation procedure CheckStatus(StatusMustBeCreated: boolean)
Called by
CloseStatus, ShowStatusPos, UpdateStatus, UpdateStatus

unit interface procedure CloseStatus

unit interface function CreateMessageDialogI(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; Lang: TLangType): TForm
Called by
MessageDlgPosI

unit interface procedure DrawGradient(ACanvas: TCanvas; Rect: TRect; Horizontal: Boolean; Colors: array of TColor)
Called by
TMessageForm.PaintGradient

unit implementation finalization

unit implementation function GetAveCharSize(Canvas: TCanvas): TPoint
Called by
CreateMessageDialogI, InputQueryI

unit implementation initialization

unit interface function InputBox(const ACaption, APrompt, ADefault: String): String

unit interface function InputBoxI(const ACaption, APrompt, ADefault: String; Lang: TLangType): String
Called by
InputBox

unit interface function InputQuery(const ACaption, APrompt: String; var Value: String): Boolean

unit interface function InputQueryI(const ACaption, APrompt: String; var Value: String; Lang: TLangType): Boolean
Called by
InputBoxI, InputQuery

unit implementation function Max(I, J: Integer): Integer
Called by
CreateMessageDialogI

unit interface function MessageDlg(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer
Called by
ShowError, ShowMessage

unit interface function MessageDlgI(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; Lang: TLangType): Integer
Called by
MessageDlg

unit interface function MessageDlgPosI(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; Lang: TLangType): Integer
Called by
MessageDlgI

unit interface procedure ShowError(const Message: String)

unit interface procedure ShowMessage(const Message: String)

unit interface procedure ShowStatus(const sCaption: String; ProgressVisible: boolean = True)
-------- Status ---------------------
unit interface procedure ShowStatusPos(const sCaption: String; sPosition: TPoint; ProgressVisible: boolean = True)
Called by
ShowStatus

unit interface procedure UpdateStatus(const Perc: TPercentage); overload
Called by
UpdateStatus

unit interface procedure UpdateStatus(const Perc: TPercentage; const sCaption: String); overload

unit interface procedure UpdateStatus(const sCaption: String); overload