paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

use value from OnAcceptDate (issue #1448)

Browse Source 
git-svn-id: trunk@8183 -
This commit is contained in:
vincents 2005-11-17 20:52:41 +00:00
parent a62ae95299
commit a8f56d92ef
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/editbtn.pas
View File

@ -866,7 +866,8 @@ begin
B:=true;
If Assigned(FOnAcceptDate) then
FOnAcceptDate(Self,D,B);
Text:=DateToStr(FDate);
if B then
Text:=DateToStr(FDate);
end;
except
raise Exception.Create('Errore in calendar dialog di dateedit');