| Class TdlgPxMaskEditor (unit dnPxProp) |
TForm
**************************************************************************** Copyright © 1997/98 Dieter Nöth version : 2.01 date : 11.04.1998 description: Editor for Paradox-style inputmasks 1.03 Added: Example mask handling 2.00 Added: ErrorMessage-Edit
| Constructors |
constructor create(aOwner : TComponent);| Functions |
procedure btnAddClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure btnMasksClick(Sender: TObject);
procedure btnRestoreClick(Sender: TObject);
procedure btnUseClick(Sender: TObject);
procedure cbMasksChange(Sender: TObject);
procedure cbMasksDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure cbMasksKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure chkAutoFillClick(Sender: TObject);
procedure chkAutoValidateClick(Sender: TObject);
procedure chkRaiseInputErrorClick(Sender: TObject);
procedure edtErrorMsgChange(Sender: TObject);
procedure edtMaskChange(Sender: TObject);
procedure edtTestChange(Sender: TObject);
procedure edtTestValidChanged(Sender: TControlPxMask;
EditControl: TWinControl; TextValid: Boolean);
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure GroupBox1Enter(Sender: TObject);
procedure GroupBox1Exit(Sender: TObject);
destructor Destroy;
procedure Loaded;
procedure AppEx(Sender: TObject; E: Exception);
function GetListMaskValue(Index: Integer): string;
function GetMaskValue(Index : integer): string;
function GetPxMask: TPxMask;
procedure LoadMaskList(const FileName: string);
procedure SetPxMask(value : TPxMask);| Properties |
property PxMask : TPxMask| Events |
| Variables |
Bevel1 : TBevel;
btnAdd : TBitBtn;
btnCancel : TBitBtn;
btnDelete : TBitBtn;
btnLoad : TBitBtn;
btnOK : TBitBtn;
btnRestore : TSpeedButton;
btnUse : TBitBtn;
cbMasks : TComboBox;
chkAutoFill : TCheckBox;
chkAutoValidate : TCheckBox;
chkRaiseInputError : TCheckBox;
edtErrorMsg : TEdit;
edtMask : TEdit;
edtTest : TPxMaskEdit;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo : TMemo;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
FOldHandler : TExceptionEvent;
FPxMask : TPxMask;
ListModified : boolean;
OldBeepOnPxError : boolean;
OldBeepOnPxInputError : boolean;| Constructors |
constructor create(aOwner : TComponent);TdlgPdoxMaskEditor
| Functions |
procedure btnAddClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure btnMasksClick(Sender: TObject);
procedure btnRestoreClick(Sender: TObject);
procedure btnUseClick(Sender: TObject);
procedure cbMasksChange(Sender: TObject);
procedure cbMasksDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure cbMasksKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure chkAutoFillClick(Sender: TObject);
procedure chkAutoValidateClick(Sender: TObject);
procedure chkRaiseInputErrorClick(Sender: TObject);
procedure edtErrorMsgChange(Sender: TObject);
procedure edtMaskChange(Sender: TObject);
procedure edtTestChange(Sender: TObject);
procedure edtTestValidChanged(Sender: TControlPxMask;
EditControl: TWinControl; TextValid: Boolean);
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure GroupBox1Enter(Sender: TObject);
procedure GroupBox1Exit(Sender: TObject);
destructor Destroy;
procedure Loaded;
procedure AppEx(Sender: TObject; E: Exception);
function GetListMaskValue(Index: Integer): string;
function GetMaskValue(Index : integer): string;
function GetPxMask: TPxMask;
procedure LoadMaskList(const FileName: string);
procedure SetPxMask(value : TPxMask);| Properties |
property PxMask : TPxMask| Events |
| Variables |
Bevel1 : TBevel;
btnAdd : TBitBtn;
btnCancel : TBitBtn;
btnDelete : TBitBtn;
btnLoad : TBitBtn;
btnOK : TBitBtn;
btnRestore : TSpeedButton;
btnUse : TBitBtn;
cbMasks : TComboBox;
chkAutoFill : TCheckBox;
chkAutoValidate : TCheckBox;
chkRaiseInputError : TCheckBox;
edtErrorMsg : TEdit;
edtMask : TEdit;
edtTest : TPxMaskEdit;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo : TMemo;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
FOldHandler : TExceptionEvent;
FPxMask : TPxMask;Private declarations
ListModified : boolean;
OldBeepOnPxError : boolean;
OldBeepOnPxInputError : boolean;