[JVCL-Checkins] CVS: dev/JVCL3/devtools/JvExVCL/src JvExMask.pas,1.6,1.7 - Adjusted for BeepOnError

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/devtools/JvExVCL/src
In directory sc8-pr-cvs1:/tmp/cvs-serv22024/devtools/JvExVCL/src

Modified Files:
	JvExMask.pas 
Log Message:
Adjusted for BeepOnError

Index: JvExMask.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/JvExVCL/src/JvExMask.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** JvExMask.pas	12 Jan 2004 20:12:29 -0000	1.6
--- JvExMask.pas	12 Jan 2004 21:05:42 -0000	1.7
***************
*** 51,55 ****
      FBeepOnError: Boolean;
    protected
!     property BeepOnError: Boolean read FBeepOnError write FBeepOnError default True;
    JV_WINCONTROL_EVENTS_FEATURE_END(CustomMaskEdit)
  
--- 51,57 ----
      FBeepOnError: Boolean;
    protected
!     procedure DoBeepOnError; dynamic;
!     procedure SetBeepOnError(Value: Boolean); virtual;
!     property BeepOnError: Boolean read FBeepOnError write SetBeepOnError default True;
    JV_WINCONTROL_EVENTS_FEATURE_END(CustomMaskEdit)
  
***************
*** 58,62 ****
      FBeepOnError: Boolean;
    protected
!     property BeepOnError: Boolean read FBeepOnError write FBeepOnError default True;
    JV_WINCONTROL_EVENTS_FEATURE_END(CustomMaskEdit)
  
--- 60,66 ----
      FBeepOnError: Boolean;
    protected
!     procedure DoBeepOnError; dynamic;
!     procedure SetBeepOnError(Value: Boolean); virtual;
!     property BeepOnError: Boolean read FBeepOnError write SetBeepOnError default True;
    JV_WINCONTROL_EVENTS_FEATURE_END(CustomMaskEdit)
  
***************
*** 67,72 ****
    FBeepOnError := True;
  }
! JV_WINCONTROL_EVENTS_IMPL(CustomMaskEdit)
! JV_WINCONTROL_EVENTS_IMPL(MaskEdit)
  
  {$UNDEF CONSTRUCTOR_CODE} // undefine at file end
--- 71,100 ----
    FBeepOnError := True;
  }
! JV_WINCONTROL_EVENTS_IMPL_FEATURE_BEGIN(CustomMaskEdit)
! procedure TJvExCustomMaskEdit.DoBeepOnError;
! begin
!   if BeepOnError then
!     SysUtils.Beep;
! end;
! 
! procedure TJvExCustomMaskEdit.SetBeepOnError(Value: Boolean);
! begin
!   FBeepOnError := Value;
! end;
! JV_WINCONTROL_EVENTS_IMPL_FEATURE_END(CustomMaskEdit)
! 
! 
! JV_WINCONTROL_EVENTS_IMPL_FEATURE_BEGIN(MaskEdit)
! procedure TJvExMaskEdit.DoBeepOnError;
! begin
!   if BeepOnError then
!     SysUtils.Beep;
! end;
! 
! procedure TJvExMaskEdit.SetBeepOnError(Value: Boolean);
! begin
!   FBeepOnError := Value;
! end;
! JV_WINCONTROL_EVENTS_IMPL_FEATURE_END(MaskEdit)
  
  {$UNDEF CONSTRUCTOR_CODE} // undefine at file end