CustomCalendar

Thanks Destiny.

I have separated the main code and the calendar code. Now the main script is not so scary. )))
Separated the query for forming dates and the query for coloring.
The procedures for coloring and working with the table filter remained in the main code.

All calendar elements are created automatically, there is only an empty panel on the form.
You can change some settings in the calendar code variables.
In particular the grid size to adjust the calendar size, color change, panel name and table name.
Added a description of the procedures.

I tried using markers in the built-in calendar and this is what came out of it.
A small description in the script.

As far as I understood you, are you interested in the reverse
process from the table to the calendar? 
Fundamentally possible. 
I'll try to prepare an example. 
Once already draws, then you can draw.

Here is my example.

If I understand you correctly, there are only two fields in your database (date and text).

Hope you read the USER QUERY SECTION comment in the script.
In this section, you can write your own query to interact with your table in the database.

// ---------------------------------------- USER QUERY SECTION ----------------------------------------
// --- You can write a query to your table.
// --- The output field names (alias) MUST BE "acdate" and "n".
// --- "acdate" - Date fields without time
// --- "n" - operation ( 0 - none, 1 - income, 2 - outcome, 3 - inc/outc ) This use for tablegrid colorize
// --- This subquery results is join with the generated dates to colorize the calendar by events.
// ----------------------------------------------------------------------------------------------------
  QueryUsrTbl := '(SELECT '+
    'DATE(Dt) AS acdate, '+
    'CASE WHEN SUM(Inc)>0 AND SUM(Out)=0 THEN 1 WHEN SUM(Inc)=0 AND SUM(Out)>0 THEN 2 ELSE 3 END AS n '+
    'FROM Account '+
    'WHERE Inc <> 0 OR Out <> 0 GROUP BY 1 ORDER BY 1)';

For example, I changed the query. Now he works with the field "Dt" (date) and the field "Out" (expense).
At the output of the query, all dates where the expense field is not empty.
Underlined in red only.

  QueryUsrTbl := '(SELECT '+
    'DATE(Dt) AS acdate, '+
    '2 AS n '+
    'FROM Account '+
    'WHERE Out <> '''' GROUP BY 1 ORDER BY 1)';

Мне нравится. но я пока в скриптах ноль. Когда я в таблицу попробовал добавить еще поле, то на выходе получил ошибку в 216 строке

linN := linN + tmpStep;

. Получается свои поля я добавить уже не могу?