LiveCode Forums.

Code: Select all

on mouseDown theButton
   if theButton is 3 then
      local tProps
      put "200,200,500,500" into tProps["rect"]
      popup widget "com.livecode.widget.calendar" with properties tProps
      if the result is not "Cancel" then
         put it
      end if
   else
      pass mouseDown
   end if
end mouseDown

Code: Select all

put "0,0,200,200" into tProps["rect"]

Code: Select all

function isaLeap pYear
   // returns true if it is a leap year
   if pYear mod 4 is not 0 then return false
   if pYear mod 100 is not 0 then return true
   if pYear mod 400 is 0 then return true
   return false
end isaLeap

Code: Select all

on mouseUp
   put the date into tToday
   put shortDate2sqlDate(tToday) into pDate
   put "0,0,234,234" into tProps["rect"] 
   put pDate into tProps["selectedDate"]
   put "Red" into tProps["hiliteColor"]
   put "Background" into tProps["hiliteStyle"]
   popup widget "com.livecode.widget.calendar" at the mouseLoc with tProps 
   put it into pDate         
   answer pDate
end mouseUp

function shortDate2sqlDate pDate
   // converts a LC short date (mm/dd/yy) to an SQL date (yyyy-mm-dd)
   convert pDate to dateItems
   set the itemDelimiter to comma
   put item 1 to 3 of pDate into newSQLdate
   replace comma with "-" in newSQLdate
   return newSQLdate
end shortDate2sqlDate