TO32CustomFlexEdit

type TO32CustomFlexEdit = class(TO32CustomEdit)

protected

  FAlignment: TAlignment;

  FBorders: TO32Borders;

  FButton: TO32FEButton;

  FButtonGlyph: TBitmap;

  FCanvas: TControlCanvas;

  FEditLines: TO32EditLines;

  FEFColors: TOvcEfColors;

  FDisplayedLines: Integer;

  FMaxLines: Integer;

  FStrings: TFlexEditStrings;

  FPopupAnchor: TO32PopupAnchor;

  FShowButton: Boolean;

  FWordWrap: Boolean;

  FWantReturns: Boolean;

  FWantTabs: Boolean;

  FMouseInControl: Boolean;

  FValidation: TFlexEditValidatorOptions;

  FValidator: TO32BaseValidator;

  FValidationError: Integer;

  FOnButtonClick: TO32feButtonClickEvent;

  FOnUserValidation: TFEUserValidationEvent;

  FOnValidationError: TFEValidationErrorEvent;

  FBeforeValidation: TNotifyEvent;

  FAfterValidation: TNotifyEvent;

  FSaveEdit: string;

  FCreating: Boolean;

  FColor: TColor;

  FFontColor: TColor;

  FUpdating: Integer;

  feValid: Boolean;

  function GetButtonGlyph;

  procedure SetButtonGlyph();

  procedure SetShowButton();

  function GetBoolean;

  function GetYesNo;

  function GetDateTime;

  function GetDouble;

  function GetExtended;

  function GetInteger;

  function GetStrings;

  function GetVariant;

  function GetText;

  function GetColor; virtual;

  procedure SetBoolean();

  procedure SetYesNo();

  procedure SetDateTime();

  procedure SetDouble();

  procedure SetExtended();

  procedure SetInteger();

  procedure SetStrings();

  procedure SetVariant();

  procedure SetDisplayedLines();

  procedure SetWordWrap();

  procedure SetWantReturns();

  procedure SetWantTabs();

  procedure SetText();

  procedure SetColor(); virtual;

  procedure WMGetDlgCode(); message;

  procedure CMMouseEnter(); message;

  procedure CMMouseLeave(); message;

  procedure CMGotFocus(); message;

  procedure CMLostFocus(); message;

  procedure CMFontChanged(); message;

  procedure WMNCPaint(); message;

  procedure WMPaint(); message;

  procedure OMValidate(); message;

  procedure OMRecreateWnd(); message;

  procedure KeyPress(); override;

  procedure CreateParams(); override;

  procedure SetParent(); override;

  procedure CreateWnd; override;

  procedure CreateWindowHandle(); override;

  procedure AdjustHeight;

  procedure GlyphChanged; dynamic;

  procedure Loaded; override;

  procedure SetAlignment();

  function MultiLineEnabled;

  function GetButtonWidth;

  function GetButtonEnabled; dynamic;

  procedure SetMaxLines();

  function ValidateSelf; virtual;

  procedure SaveEditString;

  procedure DoOnChange; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  procedure ButtonClick; dynamic;

  procedure Restore; virtual;

  procedure BeginUpdate;

  procedure EndUpdate;

  property Alignment: TAlignment; [rw]

  property Borders: TO32Borders; [rw]

  property Color: TColor; [rw]

  property EfColors: TOvcEfColors; [rw]

  property EditLines: TO32EditLines; [rw]

  property PopupAnchor: TO32PopupAnchor; [rw]

  property ShowButton: Boolean; [rw]

  property Validation: TFlexEditValidatorOptions; [rw]

  property WantReturns: Boolean; [rw]

  property WantTabs: Boolean; [rw]

  property WordWrap: Boolean; [rw]

  property Text: string; [rw]

  property Strings: TStrings; [rw]

  property AsBoolean: Boolean; [rw]

  property AsYesNo: Boolean; [rw]

  property AsDateTime: TDateTime; [rw]

  property AsFloat: Double; [rw]

  property AsExtended: Extended; [rw]

  property AsInteger: Integer; [rw]

  property AsVariant: Variant; [rw]

  property ButtonGlyph: TBitmap; [rw]

  property Canvas: TControlCanvas; [r]

  property OnButtonClick: TO32feButtonClickEvent; [rw]

  property OnUserValidation: TFEUserValidationEvent; [rw]

  property OnValidationError: TFEValidationErrorEvent; [rw]

  property BeforeValidation: TNotifyEvent; [rw]

  property AfterValidation: TNotifyEvent; [rw]

end;

TO32CustomFlexEdit

TO32CustomEdit

TObject