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

    procedure FormResize(Sender: TObject);
    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);
  private
    { Private declarations }
    FDoneLoading: Boolean;
    FInhibitEvents: boolean;
    FDB: TSQLiteDatabase;
    FActiveDate: TDateTime;
    FLoadQuery: TSQLiteQuery;

  end;

var
  frmEntry: TfrmEntry;

implementation
uses
  DateUtils, CommCtrl,
  L_KeysDown;

{$R *.dfm}

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.FormCreate(Sender: TObject);
const
  DTM_GETMCSTYLE = (DTM_FIRST + 12);
  DTM_SETMCSTYLE = (DTM_FIRST + 11);
  MCS_NOTRAILINGDATES = $0040;
  MCS_SHORTDAYSOFWEEK = $0080;
  MCS_NOSELCHANGEONNAV = $0100;
var
  style{, prevstyle}: LResult;
var
  Row: Integer;
begin
  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);

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

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

end;
{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Row: Integer;
begin
  if CanClose then begin
    if FDoneLoading then begin
      SetDate(Date);
      if not isShiftDown then begin
        Row := AddRow(FActiveDate);
        Grid.Cells[1, Row] := '(overig)';
        Grid.Cells[2, Row] := 'Afgesloten';
      end;
      SaveGrid(FActiveDate);
    end;
  end;
end{TfrmEntry.FormCloseQuery};
{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.FormDestroy(Sender: TObject);
begin

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.dtpDayChange(Sender: TObject);
begin
  if not FInhibitEvents then begin
    SetDate(dtpDay.Date);
  end;
end{TfrmEntry.dtpDayChange};

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.dtpDayDropDown(Sender: TObject);
const
  DTM_GETMCSTYLE = (DTM_FIRST + 12);
  DTM_SETMCSTYLE = (DTM_FIRST + 11);
  MCS_NOTRAILINGDATES = $0040;
  MCS_SHORTDAYSOFWEEK = $0080;
  MCS_NOSELCHANGEONNAV = $0100;
var
  monthCalHandle: THandle;
  monthRange: TSystemTimeRangeArray;
  FirstDate{, LastDate}: TDate;
  boldDates: array of TMonthDayState;
  im: Integer;
  Cursor: TSQLiteCursor;
  FS: TFormatSettings;
  MonthDay: Integer;
  fldBoldDate: TSQLiteField;
begin
  // TODO: write a TDateTimePicker that handles this properly!!!
  //       This will allow us to react to the MCN_GETDAYSTATE message, which is the proper place
  //       to handle bold days anyway (and it keeps working after you switch months)

  monthCalHandle := SendMessage(dtpDay.Handle, DTM_GETMONTHCAL, 0, 0);

  SetLength(boldDates, MonthCal_GetMonthRange(monthCalHandle, GMR_DAYSTATE, @monthRange));
  with monthRange[0] do FirstDate := EncodeDate(wYear, wMonth, wDay);
//  with monthRange[1] do LastDate := EncodeDate(wYear, wMonth, wDay);

  // make sure to set the relevant bit for each day in the specified month
  FS.DateSeparator := '-';
  FS.TimeSeparator := ':';
  FS.ShortDateFormat := 'yyyy-MM-dd';
  FS.LongDateFormat := 'yyyy-MM-dd';
  for im := 0 to High(boldDates) do begin
    boldDates[im] := 0;
    Cursor := FDB.GetCursor('   SELECT DISTINCT strftime("%d", datetime) AS bolddate'
                          + '     FROM Entries'
                          + '    WHERE substr(date(datetime), 1, 7) = ?1'
                          + ' ORDER BY bolddate'
                          , [ FormatDateTime('yyyy-MM', IncMonth(RecodeDay(FirstDate, 1), im), FS) ]
                          ) as TSQLiteCursor;
    try
      fldBoldDate := Cursor.Field['bolddate'] as TSQLiteField;
      while not Cursor.EOF do begin
        MonthDay := fldBoldDate.AsInteger;
        boldDates[im] := boldDates[im] or (1 shl (MonthDay - 1));
        Cursor.Next;
      end;
    finally
      Cursor.Free;
    end;
  end{for};
  SendMessage(monthCalHandle, MCM_SETDAYSTATE, Length(boldDates), integer(@boldDates[0]));
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.tbsWeekChange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
begin
  AllowChange := True;
  if not FInhibitEvents then begin
    if AllowChange then begin

  finally
    Cursor.Free;
  end;
end{TfrmEntry.LoadGrid};

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmEntry.InitializeDB;
var
  OriginalDataVersion, DataVersion: Integer;
begin
  // TODO: make it possible to move this elsewhere
  FDB := TSQLiteDatabase.Create(ChangeFileExt(ParamStr(0), '.sqlite'));

  if not FDB.TableExists('Entries') then begin
    FDB.Execute('PRAGMA user_version = 1;');

    FDB.Execute(' CREATE TABLE Entries'
              + ' ( id                    INTEGER PRIMARY KEY'
              + ' , datetime              DOUBLE  NOT NULL'
              + ' , project               TEXT    NOT NULL'
              + ' , activity              TEXT'
              + ' , date_inserted         TEXT    DEFAULT CURRENT_TIMESTAMP'
              + ' );');

    FDB.Execute('CREATE INDEX idx_Entries_datetime ON Entries (datetime);');
  end;

  // Check the data version, and upgrade if necessary
  OriginalDataVersion := FDB.GetIntValue('PRAGMA user_version');
  DataVersion := OriginalDataVersion;

//  if DataVersion = 1 then begin
//    // Add the settings table
//
//    FDB.Execute(' CREATE TABLE Entries'
//              + ' ( id                    INTEGER PRIMARY KEY'
//              + ' , datetime              DOUBLE  NOT NULL'
//              + ' , project               TEXT    NOT NULL'
//              + ' , activity              TEXT'
//              + ' , date_inserted         TEXT    DEFAULT CURRENT_TIMESTAMP'
//              + ' );');
//
//    FDB.Execute('CREATE INDEX idx_Entries_datetime ON Entries (datetime);');
//
//    Inc(DataVersion);
//  end;


  // TODO: add necessary upgrades here



  if DataVersion <> OriginalDataVersion then begin
    FDB.Execute('PRAGMA user_version = ?1', [DataVersion]);
  end;

  // Prepare all the queries
  FLoadQuery := FDB.PrepareSQL('   SELECT id'
                             + '   ,      time(datetime) AS time'
                             + '   ,      project'
                             + '   ,      activity'
                             + '     FROM Entries'
                             + '    WHERE datetime >= julianday(:Date)'
                             + '      AND datetime < julianday(:Date, "+1 day")'

					</Parameters>
					<VersionInfo>
						<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
						<VersionInfo Name="AutoIncBuild">True</VersionInfo>
						<VersionInfo Name="MajorVer">1</VersionInfo>
						<VersionInfo Name="MinorVer">0</VersionInfo>
						<VersionInfo Name="Release">0</VersionInfo>
						<VersionInfo Name="Build">7</VersionInfo>
						<VersionInfo Name="Debug">False</VersionInfo>
						<VersionInfo Name="PreRelease">False</VersionInfo>
						<VersionInfo Name="Special">False</VersionInfo>
						<VersionInfo Name="Private">True</VersionInfo>
						<VersionInfo Name="DLL">False</VersionInfo>
						<VersionInfo Name="Locale">1043</VersionInfo>
						<VersionInfo Name="CodePage">1252</VersionInfo>
					</VersionInfo>
					<VersionInfoKeys>
						<VersionInfoKeys Name="CompanyName">Martijn Coppoolse</VersionInfoKeys>
						<VersionInfoKeys Name="FileDescription">Olam Work registration helper</VersionInfoKeys>
						<VersionInfoKeys Name="FileVersion">1.0.0.7</VersionInfoKeys>
						<VersionInfoKeys Name="InternalName">Olam</VersionInfoKeys>
						<VersionInfoKeys Name="LegalCopyright"/>
						<VersionInfoKeys Name="LegalTrademarks"/>
						<VersionInfoKeys Name="OriginalFilename"/>
						<VersionInfoKeys Name="ProductName"/>
						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
						<VersionInfoKeys Name="Comments"/>