Class TDBPxMask (unit dnDBPxM)

Inherits from

TControlPxMask

**************************************************************************** Copyright © 1997/98 Dieter Nöth version : 2.01 date : 11.04.1998 description: Components TDBPxEdit, TDBPxCombo, new properties: PxMask: loaded from corresponding TPx...Field; Bugs fixed: 1.02 : stupid bug: In D2 method LoadPxMasks didn't work, because I changed code a bit (working with D1 and testing with D1) defined STableName as array[0..SizeOf(TFileName) - 1] of Char. In D1 TFileName is defined as String[79], but in D2 it's just string (= AnsiString = pointer), so sizeOf(TFileName) returns 4 instead, causing every filename truncated to first 3 chars. sorry.

Constructors


constructor create(aOwner : TWinControl);



Functions

procedure InitDataLink;


function CanEditModify: boolean;


procedure DoReset(Preparing: boolean);


function MaskLoaded : boolean;


procedure SetModified(Value: Boolean);


function GetDataLink : TFieldDataLink;


function GetField: TField;


function GetFieldMask: TPxMask;


Properties

property DataLink : TFieldDataLink


property Field : TField


Events

Variables


Constructors


constructor create(aOwner : TWinControl);


Functions


procedure InitDataLink;


function CanEditModify: boolean;


procedure DoReset(Preparing: boolean);


function MaskLoaded : boolean;


procedure SetModified(Value: Boolean);


function GetDataLink : TFieldDataLink;


function GetField: TField;


function GetFieldMask: TPxMask;


Properties


property DataLink : TFieldDataLink


property Field : TField


Events


Variables