paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix Editmask in TRxDateEdit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1849 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2011-08-28 12:06:07 +00:00
parent 6a0864d20c
commit ba6aad3083
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/rx/tooledit.pas
View File

@ -143,8 +143,12 @@ type
end; end;
type type
{ TRxDateEdit }
TRxDateEdit = class(TCustomRxDateEdit) TRxDateEdit = class(TCustomRxDateEdit)
public public
constructor Create(AOwner: TComponent); override;
property PopupVisible; property PopupVisible;
published published
property Action; property Action;
@ -353,6 +357,14 @@ begin
end; end;
end; end;
{ TRxDateEdit }
constructor TRxDateEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
UpdateMask;
end;
{ TCustomRxDateEdit } { TCustomRxDateEdit }
function TCustomRxDateEdit.IsStoreTitle: boolean; function TCustomRxDateEdit.IsStoreTitle: boolean;
@ -460,6 +472,7 @@ begin
if FStartOfWeek=AValue then exit; if FStartOfWeek=AValue then exit;
FStartOfWeek:=AValue; FStartOfWeek:=AValue;
UpdatePopup; UpdatePopup;
UpdateMask;
end; end;
procedure TCustomRxDateEdit.SetWeekendColor(const AValue: TColor); procedure TCustomRxDateEdit.SetWeekendColor(const AValue: TColor);
@ -480,7 +493,8 @@ procedure TCustomRxDateEdit.SetYearDigits(const AValue: TYearDigits);
begin begin
if FYearDigits=AValue then exit; if FYearDigits=AValue then exit;
FYearDigits:=AValue; FYearDigits:=AValue;
UpdateFormat; // UpdateFormat;
UpdateMask;
end; end;
procedure TCustomRxDateEdit.CalendarHintsChanged(Sender: TObject); procedure TCustomRxDateEdit.CalendarHintsChanged(Sender: TObject);