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

lcl: show calendar popup with current day and time in case of empty text instead of NullDate (issue #0013491 by patch of Salvatore Coppola)

Browse Source 
git-svn-id: trunk@19381 -
This commit is contained in:
paul 2009-04-12 09:46:27 +00:00
parent 8361d10065
commit e4256705cd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/editbtn.pas
View File

@ -932,7 +932,10 @@ begin
inherited DoButtonClick(Sender);
PopupOrigin:=ControlToScreen(Point(0, Height));
ShowCalendarPopup(PopupOrigin, Date, @CalendarPopupReturnDate);
if Trim(Text)=EmptyStr then
ShowCalendarPopup(PopupOrigin, Now, @CalendarPopupReturnDate)
else
ShowCalendarPopup(PopupOrigin, Date, @CalendarPopupReturnDate)
end;
procedure TDateEdit.DblClick;