Class TdlgPxMaskEditor (unit dnPxProp)

Inherits from

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);

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;



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;