procedure Tfrm1CTimeSheet.dbgCtrlColEnter(Sender: TObject);
begin
  inherited;
  dbgCtrlCellSelectionChanged;
end;

procedure Tfrm1CTimeSheet.mtCtrlCrossAfterScrollEv(DataSet: TDataSet);
begin
  dbgCtrlCellSelectionChanged;
end;

procedure Tfrm1CTimeSheet.dbgCtrlCellSelectionChanged;
var
  Col :TColumnEh;
  dv :TDynVarEh;
begin
  if not mtCtrlCross.IsEmpty and not mtCtrlCrossWorker.IsNull
    then FRequestCtrlDetailWorkerId := mtCtrlCrossWorker.AsInteger
    else FRequestCtrlDetailWorkerId := 0;
  Col := dbgCtrl.Columns[dbgCtrl.Col-1];
  dv := Col.DynProps.FindDynVar(cstDvDateColumn);
  if (dv <> nil)
    then FRequestCtrlDetailDate := dv.AsDateTime
    else FRequestCtrlDetailDate := 0;
  FRequestCtrlDetailReqTime := Now();
end;

procedure Tfrm1CTimeSheet.tmrRefreshDetailsTimer(Sender: TObject);
begin
  inherited;
  RefreshCtrlDetails;
end;

procedure Tfrm1CTimeSheet.RefreshCtrlDetails;
begin
  if ((FRequestCtrlDetailWorkerId <> FCurrentCtrlDetailWorkerId) or (FRequestCtrlDetailDate <> FCurrentCtrlDetailDate))
    and (MilliSecondsBetween(FRequestCtrlDetailReqTime, Now()) >= tmrRefreshDetails.Interval div 2) then
  begin
    if (FRequestCtrlDetailWorkerId <> FCurrentCtrlDetailWorkerId) then
    begin
      if (FRequestCtrlDetailWorkerId > 0) and FCtrlPhotoVisible then
      begin
        fdqCtrlPhoto.ParamByName('work_id').AsInteger := FRequestCtrlDetailWorkerId;
        if fdqCtrlPhoto.Active
          then fdqCtrlPhoto.Refresh
          else fdqCtrlPhoto.Open;
      end else
        fdqCtrlPhoto.Close;
    end;

    FCurrentCtrlDetailWorkerId := FRequestCtrlDetailWorkerId;
    FCurrentCtrlDetailDate := FRequestCtrlDetailDate;
  end;
end;