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
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:
procedure CloseStatus
function CreateMessageDialogI
procedure DrawGradient
function InputBox
function InputBoxI
function InputQuery
function InputQueryI
function MessageDlg
function MessageDlgI
function MessageDlgPosI
procedure ShowError
procedure ShowMessage
procedure ShowStatus
- -------- Status ---------------------
procedure ShowStatusPos
procedure UpdateStatus
procedure UpdateStatus
procedure UpdateStatus
File-Local Functions:
procedure CheckStatus
procedure finalization
function GetAveCharSize
procedure initialization
function Max
FormRegion: HRGN
-
- Used in
- TMessageForm.Destroy, CreateMessageDialogI, InputQueryI
MsgOptions: TMsgOptions
-
- Used in
- TMessageForm.CreateNew, TMessageForm.PaintGradient, CreateMessageDialogI, finalization, initialization, InputBox, InputQuery, InputQueryI, MessageDlg, ShowStatus, ShowStatusPos
StatusForm: TForm = nil
-
- Used in
- CheckStatus, CloseStatus, ShowStatusPos, UpdateStatus, UpdateStatus
StatusLabel: TLabel
-
- Used in
- ShowStatusPos, UpdateStatus
StatusProgress: TXiProgressBar
-
- Used in
- ShowStatusPos, UpdateStatus
btncsCustom = TButtonColorScheme( 12)
btncsDesert = TButtonColorScheme( 6)
btncsGrass = TButtonColorScheme( 7)
btncsNeoDesert = TButtonColorScheme( 0)
btncsNeoGrass = TButtonColorScheme( 2)
btncsNeoRose = TButtonColorScheme( 4)
btncsNeoSilver = TButtonColorScheme( 3)
btncsNeoSky = TButtonColorScheme( 1)
btncsNeoSun = TButtonColorScheme( 5)
btncsRose = TButtonColorScheme( 10)
btncsSilver = TButtonColorScheme( 11)
btncsSky = TButtonColorScheme( 8)
-
- Used in
- initialization
btncsSun = TButtonColorScheme( 9)
ButtonCaptionsD: array [ TMsgDlgBtn] of String = ( 'Ja', 'Nee', 'OK', 'Annuleren', 'Afbreken', 'Herhalen', 'Negeren', 'Alles', 'Nee op alles', 'Ja op alles', '?')
-
- Used in
- CreateMessageDialogI
ButtonCaptionsE: array [ TMsgDlgBtn] of String = ( 'Yes', 'No', 'OK', 'Cancel', 'Abort', 'Retry', 'Ignore', 'All', 'No to all', 'Yes to all', 'Help')
-
- Used in
- CreateMessageDialogI
ButtonCaptionsF: array [ TMsgDlgBtn] of String = ( 'Oui', 'Non', 'OK', 'Annuler', 'Abandonner', 'Réessayer', 'Ignorer', 'Tout', 'Non pour tous', 'Oui pour tous', 'Aide')
-
- Used in
- CreateMessageDialogI
ButtonCaptionsG: array [ TMsgDlgBtn] of String = ( 'Ja', 'Nein', 'OK', 'Abbrechen', 'Abbrechen', 'Wiederholen', 'Ignorieren', 'Alle', 'Nein zu allen', 'Ja zu allen', 'Hilfe')
-
- Used in
- CreateMessageDialogI
ButtonCaptionsGr: array [ TMsgDlgBtn] of String = ( 'Íáß', '¼÷é', 'ÅíôÜîåé', '¢êõñï', '¢êýñùóç', 'ÐñïóðÜèåéá', 'Áãíþçóç', '¼ëá', '¼÷é óå üëá', 'Íáß óå üëá', 'ÂïÞèåéá')
-
- Used in
- CreateMessageDialogI
ButtonCaptionsI: array [ TMsgDlgBtn] of String = ( 'Si', 'No', 'OK', 'Annulla', 'Termina', 'Riprova', 'Ignora', 'Tutti', 'No a tutti', 'Si a tutti', 'Aiuto!')
-
- Used in
- CreateMessageDialogI
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
ButtonCaptionsR: array [ TMsgDlgBtn] of String = ( 'Äà', 'Íåò', 'OK', 'Îòìåíà', 'Ñòîï', 'Ïîâòîð', 'Ïðîïóñòèòü', 'Âñå', 'Íåò äëÿ âñåõ', 'Äà äëÿ âñåõ', 'Ñïðàâêà')
-
- Used in
- CreateMessageDialogI
ButtonCaptionsS: array [ TMsgDlgBtn] of String = ( 'Si', 'No', 'OK', 'Cancelar', 'Abortar', 'Reintentar', 'Ignorar', 'Todo', 'No a todo', 'Si a todo', 'Ayuda')
-
- Used in
- CreateMessageDialogI
ButtonCaptionsT: array [ TMsgDlgBtn] of String = ( 'Evet', 'Hayýr', 'TAMAM', 'Vazgeç', 'Durdur', 'Tekrar', 'Ýptal', 'Hepsi', 'Hepsine hayýr', 'Hepsine evet', 'Yardým')
-
- Used in
- CreateMessageDialogI
CaptionsD: array [ TMsgDlgType] of String = ( 'Waarschuwing', 'Fout', 'Informatie', 'Bevestiging', '')
-
- Used in
- CreateMessageDialogI
CaptionsE: array [ TMsgDlgType] of String = ( 'Warning', 'Error', 'Information', 'Confirm', '')
-
- Used in
- CreateMessageDialogI
CaptionsF: array [ TMsgDlgType] of String = ( 'Avertissement', 'Erreur', 'Information', 'Confirmation', '')
-
- Used in
- CreateMessageDialogI
CaptionsG: array [ TMsgDlgType] of String = ( 'Warnung', 'Fehler', 'Information', 'Bestätigung', '')
-
- Used in
- CreateMessageDialogI
CaptionsGr: array [ TMsgDlgType] of String = ( 'Ðñïóï÷Þ!', 'ËÜèïò', 'Ðëçñïöïñßá', 'Åðéâåâáßùóç', '')
-
- Used in
- CreateMessageDialogI
CaptionsI: array [ TMsgDlgType] of String = ( 'Attenzione', 'Errore', 'Informazione', 'Conferma', '')
-
- Used in
- CreateMessageDialogI
CaptionsP: array [ TMsgDlgType] of String = ( 'Aviso', 'Erro', 'Informação', 'Confirmação', '')
-
- Used in
- CreateMessageDialogI
CaptionsR: array [ TMsgDlgType] of String = ( 'Ïðåäóïðåæäåíèå', 'Îøèáêà', 'Èíôîðìàöèÿ', 'Ïîäòâåðæäåíèå', '')
-
- Used in
- CreateMessageDialogI
CaptionsS: array [ TMsgDlgType] of String = ( 'Precaución', 'Error', 'Información', 'Confirmación', '')
-
- Used in
- CreateMessageDialogI
CaptionsT: array [ TMsgDlgType] of String = ( 'Uyarý', 'Hata', 'Bilgi', 'Doðrulama', '')
-
- Used in
- CreateMessageDialogI
ltDutch = TLangType( 5)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltEnglish = TLangType( 0)
-
- Used in
- initialization
ltFrench = TLangType( 6)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltGerman = TLangType( 4)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltGreek = TLangType( 7)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltItalian = TLangType( 9)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltPortuguese = TLangType( 2)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltRussian = TLangType( 1)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltSpanish = TLangType( 8)
-
- Used in
- CreateMessageDialogI, InputQueryI
ltTurkish = TLangType( 3)
-
- Used in
- CreateMessageDialogI, InputQueryI
pnlcsCustom = TPanelColorScheme( 0)
pnlcsDesert = TPanelColorScheme( 1)
pnlcsGrass = TPanelColorScheme( 2)
pnlcsRose = TPanelColorScheme( 5)
pnlcsSilver = TPanelColorScheme( 3)
pnlcsSky = TPanelColorScheme( 4)
-
- Used in
- initialization
pnlcsSun = TPanelColorScheme( 6)
procsCustom = TProgressColorScheme( 0)
procsDesert = TProgressColorScheme( 1)
procsGrass = TProgressColorScheme( 2)
procsHackers = TProgressColorScheme( 7)
procsMetal = TProgressColorScheme( 10)
procsNight = TProgressColorScheme( 8)
procsRose = TProgressColorScheme( 5)
procsSilver = TProgressColorScheme( 3)
procsSky = TProgressColorScheme( 4)
-
- Used in
- initialization
procsSun = TProgressColorScheme( 6)
procsToxic = TProgressColorScheme( 12)
procsVelvet = TProgressColorScheme( 9)
procsViolet = TProgressColorScheme( 11)
sCancelCaptionD = 'Annuleren'
-
- Used in
- InputQueryI
sCancelCaptionE = 'Cancel'
-
- Used in
- InputQueryI
sCancelCaptionF = 'Annuler'
-
- Used in
- InputQueryI
sCancelCaptionG = 'Abbrechen'
-
- Used in
- InputQueryI
sCancelCaptionGr = '¢êõñï'
-
- Used in
- InputQueryI
sCancelCaptionI = 'Annulla'
-
- Used in
- InputQueryI
sCancelCaptionP = 'Cancela'
-
- Used in
- InputQueryI
sCancelCaptionR = 'Îòìåíà'
-
- Used in
- InputQueryI
sCancelCaptionS = 'Cancelar'
-
- Used in
- InputQueryI
sCancelCaptionT = 'Vazgeç'
-
- Used in
- InputQueryI
TButtonColorScheme = ( btncsNeoDesert, btncsNeoSky, btncsNeoGrass, btncsNeoSilver, btncsNeoRose, btncsNeoSun, btncsDesert, btncsGrass, btncsSky, btncsSun, btncsRose, btncsSilver, btncsCustom)
TLangType = ( ltEnglish, ltRussian, ltPortuguese, ltTurkish, ltGerman, ltDutch, ltFrench, ltGreek, ltSpanish, ltItalian)
TPanelColorScheme = ( pnlcsCustom, pnlcsDesert, pnlcsGrass, pnlcsSilver, pnlcsSky, pnlcsRose, pnlcsSun)
TPercentage = 1.. 100
TProgressColorScheme = ( procsCustom, procsDesert, procsGrass, procsSilver, procsSky, procsRose, procsSun, procsHackers, procsNight, procsVelvet, procsMetal, procsViolet, procsToxic)
procedure CheckStatus(StatusMustBeCreated: boolean)
-
- Called by
- CloseStatus, ShowStatusPos, UpdateStatus, UpdateStatus
procedure CloseStatus
function CreateMessageDialogI(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; Lang: TLangType): TForm
-
- Called by
- MessageDlgPosI
procedure DrawGradient(ACanvas: TCanvas; Rect: TRect; Horizontal: Boolean; Colors: array of TColor)
-
- Called by
- TMessageForm.PaintGradient
finalization
function GetAveCharSize(Canvas: TCanvas): TPoint
-
- Called by
- CreateMessageDialogI, InputQueryI
initialization
function InputBox(const ACaption, APrompt, ADefault: String): String
function InputBoxI(const ACaption, APrompt, ADefault: String; Lang: TLangType): String
-
- Called by
- InputBox
function InputQuery(const ACaption, APrompt: String; var Value: String): Boolean
function InputQueryI(const ACaption, APrompt: String; var Value: String; Lang: TLangType): Boolean
-
- Called by
- InputBoxI, InputQuery
function Max(I, J: Integer): Integer
-
- Called by
- CreateMessageDialogI
function MessageDlg(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer
-
- Called by
- ShowError, ShowMessage
function MessageDlgI(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; Lang: TLangType): Integer
-
- Called by
- MessageDlg
function MessageDlgPosI(const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; Lang: TLangType): Integer
-
- Called by
- MessageDlgI
procedure ShowError(const Message: String)
procedure ShowMessage(const Message: String)
procedure ShowStatus(const sCaption: String; ProgressVisible: boolean = True)
- -------- Status ---------------------
procedure ShowStatusPos(const sCaption: String; sPosition: TPoint; ProgressVisible: boolean = True)
-
- Called by
- ShowStatus
procedure UpdateStatus(const Perc: TPercentage); overload
-
- Called by
- UpdateStatus
procedure UpdateStatus(const Perc: TPercentage; const sCaption: String); overload
procedure UpdateStatus(const sCaption: String); overload