Unit rdlg

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

rDlg provides set of OkCancel, YesNo, etc input dialogs with new grafics icons and buttons and with HTML format support.

Updated version compatible with Delphi2010+.

Overview

Classes, Interfaces, Objects and Records

Name Description
Class TrDlgForm  

Functions and Procedures

function DlgI(const InfoText: string; WordWrap: boolean = true): integer;
function DlgQ(const InfoText: string; WordWrap: boolean = true): integer;
function DlgQCancel(const InfoText: string; WordWrap: boolean = true): integer;
function DlgW(const InfoText: string; WordWrap: boolean = true): integer;
function DlgE(const InfoText: string; WordWrap: boolean = true): integer;
function DlgI2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
function DlgQ2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
function DlgQCancel2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
function DlgW2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
function DlgE2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
function DlgQUserDef(const Button1, Button2, Button3: string; const Text: array of string): integer;
function ShowDlg(const DialogType: TDialogType; const ButtonsType: TButtonsType; const Params: array of Variant; WordWrap: boolean = true): integer;
function InputStr(const Capt, Info: string; var Input: string): boolean;
function InputInt(const Capt, Info: string; var Input: integer): boolean;
function InputPassword(const Info: string; var Psw: string): boolean;
function ShowInput(const Capt, Info: string; var Input: string; const Width: integer; const MaskChar: Char): boolean;
function ShowInputCB(const Capt, Info: string; var Input: string; const Width: integer; const MaskChar: Char; CBItems: TStrings; ListOnly: boolean): boolean;
procedure ShowInfo(const InfoText: string; const CenterIn: TWinControl = nil);
procedure ShowInfoEx(const InfoText: string; const CenterIn: TWinControl; OnAbort: TNotifyEvent);
procedure ShowInfoProgressBar(const InfoText: string; const CenterIn: TWinControl; OnAbort: TNotifyEvent; ProgressProcent: integer);
procedure ShowErr(const Info: string; E: Exception; EndProgram: boolean = false);

Types

TDialogType = (...);
TButtonsType = (...);

Description

Functions and Procedures

function DlgI(const InfoText: string; WordWrap: boolean = true): integer;
 
function DlgQ(const InfoText: string; WordWrap: boolean = true): integer;
 
function DlgQCancel(const InfoText: string; WordWrap: boolean = true): integer;
 
function DlgW(const InfoText: string; WordWrap: boolean = true): integer;
 
function DlgE(const InfoText: string; WordWrap: boolean = true): integer;
 
function DlgI2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
 
function DlgQ2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
 
function DlgQCancel2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
 
function DlgW2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
 
function DlgE2(const BoldText, NormalText: string; WordWrap: boolean = true): integer;
 
function DlgQUserDef(const Button1, Button2, Button3: string; const Text: array of string): integer;
 
function ShowDlg(const DialogType: TDialogType; const ButtonsType: TButtonsType; const Params: array of Variant; WordWrap: boolean = true): integer;

Params: array of strings to display or helpcontext if string begining: ˆC - this string will be used as caption of window ˆB - this string will be displayed bold; ˆI - -"- italic; ˆU - -"- underline; ˆL - -"- large font; ˆX - -"- extra large font;

function InputStr(const Capt, Info: string; var Input: string): boolean;
 
function InputInt(const Capt, Info: string; var Input: integer): boolean;
 
function InputPassword(const Info: string; var Psw: string): boolean;
 
function ShowInput(const Capt, Info: string; var Input: string; const Width: integer; const MaskChar: Char): boolean;
 
function ShowInputCB(const Capt, Info: string; var Input: string; const Width: integer; const MaskChar: Char; CBItems: TStrings; ListOnly: boolean): boolean;
 
procedure ShowInfo(const InfoText: string; const CenterIn: TWinControl = nil);
 
procedure ShowInfoEx(const InfoText: string; const CenterIn: TWinControl; OnAbort: TNotifyEvent);
 
procedure ShowInfoProgressBar(const InfoText: string; const CenterIn: TWinControl; OnAbort: TNotifyEvent; ProgressProcent: integer);
 
procedure ShowErr(const Info: string; E: Exception; EndProgram: boolean = false);
 

Types

TDialogType = (...);
 
Values
  • dtNone:  
  • dtI:  
  • dtQ:  
  • dtW:  
  • dtE:  
TButtonsType = (...);
 
Values
  • btOk:  
  • btOkCancel:  
  • btYesNo:  
  • btYesNoCancel:  
  • btYesNoUserDef:  
  • btYesNoCancelUserDef:  

Author

Created

Jan 2006

Last Modified

Sep 2015


Generated by PasDoc 0.13.0 on 2016-02-19 08:14:10