WITH THISFORM.oCAL > .LEFT = THIS.LEFT > .TOP = THIS.TOP + 40 > .aSelectedDates = .F. > .lMultiselect = .F. > .AddDate(THISFORM.business.DATA.startdate) > > .VISIBLE = .T. > .ZORDER(0) >ENDWITH >>
>> >>WITH THISFORM.oCAL >> >> .LEFT = THIS.LEFT >> .TOP = THIS.TOP + 40 >> .lMultiSelect = .F. >> dDate1 = THISFORM.business.DATA.startdate >> .iCurrentYear = YEAR(m.dDate1) >> .iCurrentMonth = MONTH(m.dDate1) >> .iSelectedDateCount = DAY(m.dDate1) >> .RefreshCalendar() >> >> .VISIBLE = .T. >> .ZORDER(0) >>ENDWITH >> >>>>it does not highlight the date passed in through the year/mont/datecount properties!