pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: TRxDBDateEdit - fix error on set focus if dataset.active=false

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-02-13 06:41:27 +00:00
parent dedfe4b7ee
commit 50a5126435
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/trunk/tooledit.pas
View File

@ -116,6 +116,7 @@ type
function GetDefaultGlyphName: String; override; function GetDefaultGlyphName: String; override;
function CreatePopupForm:TPopupCalendar; function CreatePopupForm:TPopupCalendar;
procedure DoEnter; override;
property BlanksChar: Char read FBlanksChar write SetBlanksChar default ' '; property BlanksChar: Char read FBlanksChar write SetBlanksChar default ' ';
property DialogTitle:TCaption Read FDialogTitle Write FDialogTitle Stored IsStoreTitle; property DialogTitle:TCaption Read FDialogTitle Write FDialogTitle Stored IsStoreTitle;
@ -867,6 +868,12 @@ begin
TRxCalendarGrid(Result.Calendar).NotInThisMonthColor:=FNotInThisMonthColor; TRxCalendarGrid(Result.Calendar).NotInThisMonthColor:=FNotInThisMonthColor;
end; end;
procedure TCustomRxDateEdit.DoEnter;
begin
if Enabled then
inherited DoEnter;
end;
constructor TCustomRxDateEdit.Create(AOwner: TComponent); constructor TCustomRxDateEdit.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);