LCL: fixed setting default value of TDateEdit.ReadOnly in the constructor

git-svn-id: trunk@14206 -
This commit is contained in:
vincents 2008-02-20 11:40:22 +00:00
parent 2bf1ed6db8
commit 20af7aeb18

View File

@ -906,6 +906,7 @@ var
begin
inherited Create(AOwner);
FDisplaySettings:=[dsShowHeadings, dsShowDayNames];
ReadOnly:=true;
DialogTitle:=rsPickDate;
OKCaption:='OK';
CancelCaption:='Cancel';