Format = 'd MMMM yyyy'
    Time = 40667.351732187500000000
    DoubleBuffered = True
    ParentDoubleBuffered = False
    TabOrder = 1
    OnChange = dtpDayChange
    OnDropDown = dtpDayDropDown
    OnKeyDown = dtpDayKeyDown
  end
  object Grid: TStringGrid
    Left = 8
    Top = 35
    Width = 534
    Height = 375
    Anchors = [akLeft, akTop, akRight, akBottom]

    procedure FormCreate(Sender: TObject);
    procedure tbsWeekChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
    procedure dtpDayChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure GridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure dtpDayDropDown(Sender: TObject);
    procedure dtpDayKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
    FDoneLoading: Boolean;
    FInhibitEvents: boolean;
    FDB: TSQLiteDatabase;
    FActiveDate: TDateTime;
    FLoadQuery: TSQLiteQuery;
    FClearQuery: TSQLiteQuery;
    FSaveQuery: TSQLiteQuery;

    procedure FillHeaders;
    function  SQLDateToStr(Date: TDateTime): string;
    function  SQLDateTimeToStr(Date: TDateTime): string;
    procedure SetDate(NewDate: TDateTime);
    function  AddRow(CurrentDate: TDateTime = -1): Integer;
    procedure SaveGrid(Date: TDateTime);
    procedure LoadGrid(Date: TDateTime);
    procedure InitializeDB;
    procedure ClearGrid;
    procedure HandleCtrlTab(Shift: TShiftState);

    procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
    procedure WMHotkey(var msg: TWMHotkey);         message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  frmEntry: TfrmEntry;

  MCS_SHORTDAYSOFWEEK = $0080;
  MCS_NOSELCHANGEONNAV = $0100;
var
  style{, prevstyle}: LResult;
var
  Row: Integer;
begin
  // TODO: create subclass of TDateTimePicker that handles this (and the MCM_DAYSTATE mess)
  style := SendMessage(dtpDay.Handle, DTM_GETMCSTYLE, 0, 0);
  style := style or MCS_DAYSTATE or MCS_WEEKNUMBERS or MCS_NOSELCHANGEONNAV;
  {prevstyle := }SendMessage(dtpDay.Handle, DTM_SETMCSTYLE, 0, style);

  // TODO: get hotkey combo from settings
  RegisterHotKey(Self.Handle, 1, MOD_CONTROL or MOD_WIN, Ord('U'));

  try
    dtpDay.MaxDate := dtpDay.Date + 7; // eigenlijk niet verder dan a.s. zondag...
    FillHeaders;
    InitializeDB;

    SetDate(Date);
    Row := AddRow(FActiveDate);

    end;
  end;
end{TfrmEntry.FormCloseQuery};
{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FDB);
  UnRegisterHotKey(Self.Handle, 1);
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.FormResize(Sender: TObject);
begin
  // TODO: autosize column 2
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.GridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  KeyShift: TShiftState;
begin
  KeyShift := Shift * [ssShift, ssCtrl, ssAlt];
  case Key of
    VK_TAB: begin




      HandleCtrlTab(Shift);






    end;
    VK_F4: begin
      if KeyShift = [] then begin
        dtpDay.SetFocus;
        PostMessage(dtpDay.Handle, WM_KEYDOWN, VK_F4, 0);
        PostMessage(dtpDay.Handle, WM_KEYUP, VK_F4, 0);
      end;

      end;
    finally
      Cursor.Free;
    end;
  end{for};
  SendMessage(monthCalHandle, MCM_SETDAYSTATE, Length(boldDates), integer(@boldDates[0]));
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.dtpDayKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_TAB: begin
      HandleCtrlTab(Shift);
    end;
  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.tbsWeekChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
begin
  AllowChange := True;
  if not FInhibitEvents then begin
    if AllowChange then begin
      SetDate(dtpDay.Date + (NewTab - tbsWeek.TabIndex));
    end;
  end;
end{TfrmEntry.tbsWeekChange};

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.WMActivate(var Message: TWMActivate);
begin
  AddRow(FActiveDate);
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.WMHotkey(var msg: TWMHotkey);
begin
  case Msg.HotKey of
    1: begin // Toggle visibility
      if Visible then begin
        Self.Hide;
        SaveGrid(FActiveDate);
      end else begin
        Self.Show;
        SetForegroundWindow(Self.Handle);
        AddRow;
      end;
    end;
  end;
end{TfrmEntry.WMHotkey};

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.FillHeaders;
begin
  Grid.Cells[0, 0] := 'Tijd';
  Grid.Cells[1, 0] := 'Project';
  Grid.Cells[2, 0] := 'Werkzaamheden';

end;

{ ------------------------------------------------------------------------------------------------ }
function TfrmEntry.AddRow(CurrentDate: TDateTime): Integer;
var
  LastRow, Col: Integer;
begin
  if CurrentDate = -1 then
    CurrentDate := FActiveDate;

  LastRow := Grid.RowCount - 1;
  for Col := 1 to Grid.ColCount - 1 do begin
    if Trim(Grid.Cells[Col, LastRow]) <> '' then begin
      Inc(LastRow);
      Break;
    end;
  end;

  Row := Grid.FixedRows;
  Grid.Objects[0, Row] := nil;
  for Col := 0 to Grid.ColCount - 1 do begin
    Grid.Cells[Col, Row] := '';
  end;
  Grid.EditorMode := OldEditorMode;
end{TfrmEntry.ClearGrid};

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.HandleCtrlTab(Shift: TShiftState);
var
  KeyShift: TShiftState;
begin
  KeyShift := Shift * [ssShift, ssCtrl, ssAlt];
  if (KeyShift = []) and (goEditing in Grid.Options)
      and (Grid.Col = Grid.ColCount - 1) and (Grid.Row = Grid.RowCount - 1) then
  begin
    AddRow(FActiveDate);
  end else if ssCtrl in KeyShift then begin
    if ssShift in KeyShift then begin
      SetDate(FActiveDate - 1);
    end else begin
      if FActiveDate + 2 < dtpDay.MaxDate then
        SetDate(FActiveDate + 1);
    end{if};
  end{if};
end{TfrmEntry.HandleCtrlTab};

end.

procedure DisposeProc(Ptr: pointer); cdecl;

////////////////////////////////////////////////////////////////////////////////////////////////////
implementation

uses
  SysUtils, Windows;

{$IFNDEF VER200} // before Delphi 2009
function SetDllDirectory(lpPathName:PChar): Bool; stdcall; external 'kernel32.dll' name 'SetDllDirectoryA';
{$ELSE}
  {$IFNDEF VER210} // before Delphi 2010 (which has this in the Windows unit)
function SetDllDirectory(lpPathName:PWideChar): Bool; stdcall; external 'kernel32.dll' name 'SetDllDirectoryW';
  {$ENDIF}
{$ENDIF}

{ ------------------------------------------------------------------------------------------------ }
procedure DisposeProc(Ptr: pointer); cdecl;
begin
  if Assigned(Ptr) then
    Freemem(Ptr);
end;