Странное поведение у этого календарика. В одном скрипте убирается при потере фокуса, в другом - нет. И никак не могу отловить причины и закономерности. Обшарил все доступные контролы элемента,

Не тратьте время, свойства никакого нет. Календарик должен исчезать при выборе (дабл-кликом) или потере фокуса. Это видно из исходного кода календарика.
Если собрать просто exe из Lazarus с этим же календариком - всё работает как надо.
Видимо есть какой-то нюанс хитрый в dll'ке библиотеки. Причем не в том, что код в ней неправильный (он правильный), а видимо в том, как она в принципе функционирует, почему-то не срабатывает толи потеря фокуса, толи еще что.

Удивительно, что клик правой кнопкой мыши в самом деле отлично работает (закрывает) календарь. Значит не всё безнадёжно

kalikazandr пишет:

Убирается нажатием ПКМ

Я, конечно, дико извиняюсь, но подскажите, пожалуйста, магазин, где продаётся такая кнопка?

Вообще-то, убираться должна при выборе или при любой потере фокуса DataEdit'ом или формой, на котором календарь открыт. Если просто в Lazarus сделать приложение - то именно так и происходит.

Странное поведение у этого календарика. В одном скрипте убирается при потере фокуса, в другом - нет. И никак не могу отловить причины и закономерности. Обшарил все доступные контролы элемента, не нашел отвечающий за исчезание окошка. Остались неизведанными Action и PopupMenu, но что и в каком виде на них можно передать чтобы окошко схлопнулось после например даблклик - никаких инструкций не нашел.
Календарик этот очевидно popup окошко, и никаких имен и органов управления не видно.
Да и кнопок Ok и Cancel нет, хотя на соотв. контролах по-умолч. true. Высвечивался бы OK - окошко бы схлапывалось при нажатии, такое управление стандартно вшито в умолчаниях Popup.
Очень похоже недоделанная библиотека в части этого элемента. Начали разработчики, да бросили как есть...

Добрый день!
Подскажите пожалуйста, как результат компонента DateEdit.Date превратить в нормальный posix формат os.time?

Вот еще один вариант проще, пример формы взят у swerg:

#xzxz.lua
VCL=require "qvcl"
function Handler (sender)
  local SN = sender.Name
  if SN == "DateEdit" then
    local dt = {}
    dt.day, dt.month, dt.year = string.match(sender.Text,"(%d*)\.(%d*)\.(%d*)") --sender.Text = "11.02.2016"
    message (os.date("%Y%m%d",os.time(dt)))-->20160211
  end
end
mainForm = VCL.Form("mainForm",
    { position="podesktopcenter", height=150, width=400, Caption="DateEdit test",
      OnClose = function(sender) is_run=false mainForm:Release() end
    }
)

dateEdit = VCL.DateEdit(mainForm,
{ Name = "DateEdit", Top=20, Left=30, Text="DD.MM.YYYY", DialogTitle = "Выбрать дату", OnChange = Handler, AutoSelect=true, ShowHint=true, Hint="Календарь:\nЛевый дабл-клик = выбор даты.\nПравый клик = выход из календаря"}
)

mainForm:Show()

is_run = true    
function main()
  while is_run do
    sleep(50)
  end
end

function OnStop()
 is_run = false
 mainForm:Release()
end

kalikazandr пишет:

Убирается нажатием ПКМ

Я, конечно, дико извиняюсь, но подскажите, пожалуйста, магазин, где продаётся такая кнопка?

Вообще-то, убираться должна при выборе или при любой потере фокуса DataEdit'ом или формой, на котором календарь открыт. Если просто в Lazarus сделать приложение - то именно так и происходит.

ПКМ = правая кнопка мыши ))

Убирается нажатием ПКМ

Я, конечно, дико извиняюсь, но подскажите, пожалуйста, магазин, где продаётся такая кнопка?

Вообще-то, убираться должна при выборе или при любой потере фокуса DataEdit'ом или формой, на котором календарь открыт. Если просто в Lazarus сделать приложение - то именно так и происходит.

Тоже столкнулся с такой проблемой. И нет никакого свойства, закрываться должно само автоматически. Опять надо разбираться.

Убирается нажатием ПКМ

2) При выборе даты почему-то не закрывается календарь. Более того, при перемещении окна календарь остаётся на месте, т.е. он, как бы, сам по себе. Какой параметр отвечает за это поведение?

Тоже столкнулся с такой проблемой. И нет никакого свойства, закрываться должно само автоматически. Опять надо разбираться.

masalexven, а у вас есть такая проблема при использовании DataEdit?

Большое человеческое спасибо за формулу. Константа по часовому поясу у kalikazandr красивее вышла.

В общем обобщил.

Нзч, красивее - не значит быстрее ))
Хотя тут время исполнения не критично - разово в начале кода.

Как любитель магических констант, поправил [url=https://quik2dde.ru/viewtopic.php?pid=1930#p1930]свой пост выше[/url], уточнив формулу для TIME_ZONE_SEC_SHIFT.

kalikazandr, красиво! спасибо
Можно и так вычислять значение TIME_ZONE_SEC_SHIFT, чтобы без магических констант )

Большое человеческое спасибо за формулу. Константа по часовому поясу у kalikazandr красивее вышла.

В общем обобщил.

masalexven пишет:

Из-за чего это может быть?

-- Возвращает смещение часового пояса в секундах
function os.offset()
   local currenttime = os.time()
   local datetime = os.date("!*t",currenttime)
   datetime.isdst = true -- Флаг дневного времени суток
   return currenttime - os.time(datetime)
end

Красиво, большое человеческое спасибо.

kalikazandr, красиво! спасибо
Можно и так вычислять значение TIME_ZONE_SEC_SHIFT, чтобы без магических констант )

Из-за чего это может быть?

-- Возвращает смещение часового пояса в секундах
function os.offset()
   local currenttime = os.time()
   local datetime = os.date("!*t",currenttime)
   datetime.isdst = true -- Флаг дневного времени суток
   return currenttime - os.time(datetime)
end

Блин, а чего-то я тупанул, всё ведь просто.

   Время (дата) в POSIX = (DateEdit.Date - 25569) * 86400 - TIME_ZONE_SEC_SHIFT,

где:
   25569 - разница в днях между разными стартовыми датами
   86400 = 24*60*60 (количество секунд в сутках)
   TIME_ZONE_SEC_SHIFT - сдвиг в секундах вашего часового пояса (по настройкам Windows)

Т.е.

TIME_ZONE_SEC_SHIFT = os.time({year=1970,month=01,day=1})
message(os.date("%d.%m.%Y", (DateEdit.Date - 25569) * 86400 - TIME_ZONE_SEC_SHIFT )) -- покажет текущую дату

Спасибо большое за формулу. Единственно что, TIME_ZONE_SEC_SHIFT показывает 9 часов (в секундах), хотя у меня часовой пояс +3. В результате Ваш message показывает текущую дату со сдвигом в 6 часов (т е. в результате получаем предыдущую дату и время 18 часов).
Из-за чего это может быть?

   Время (дата) в POSIX = (DateEdit.Date - 25569) * 86400 - TIME_ZONE_SEC_SHIFT,

где:
   25569 - разница в днях между разными стартовыми датами
   86400 = 24*60*60 (количество секунд в сутках)
   TIME_ZONE_SEC_SHIFT - сдвиг в секундах вашего часового пояса (по настройкам Windows)

Т.е.

TIME_ZONE_SEC_SHIFT = 43200 - os.time({year=1970,month=1,day=1})
dt = (DateEdit.Date - 25569) * 86400 - TIME_ZONE_SEC_SHIFT  -- дата из DateEdit.Date в POSIX-формате
message(os.date("%d.%m.%Y", dt)) -- покажет текущую дату