paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:56:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@14206 -
This commit is contained in:
vincents 2008-02-20 11:40:22 +00:00
parent 2bf1ed6db8
commit 20af7aeb18
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/editbtn.pas
View File

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