Hello v_pozidis
Question 1 :
I see no property allowing to color day of Month.
But you can circle the day via a script :
Form1.MonthCalendar1.ShowTodayCircle := True; or Form1.MonthCalendar1.ShowTodayCircle := False;
Question 2 :
No way to lock calendar.
Question 3 :
procedure Form1_GridEmployees_OnChange (Sender: string);
var
i,c: integer;
k, q: integer;
begin
Form1.GridEmployees.Columns[3].Visible := False; // hide column
c := Form1.GridEmployees.RowCount - 1;
q := Form1.GridEmployees.Columns.Count - 1;
for i := 0 to c do
begin
if Form1.GridEmployees.Cells[3,i] = 'Yes' then
for k := 0 to q do Form1.GridEmployees.Cell[k,i].Color := clRed;
if Form1.GridEmployees.Cells[3,i] = 'No' then
for k := 0 to q do Form1.GridEmployees.Cell[k,i].Color := clGreen;
end;
end;
You will have to adapt this code according to your 'criteria'
Does thi help you ?
JB