Using the TCalendarDialog Component
lazarus / 31-LCL

----------------------------------------------------------------------
MichaelMurray · 2014-04-07 14:26

I'm making a simple database program of my own and am trying to make
my date input as simple as possible.
When the Calender Dialogue Appears it only shows the days of the
month, when you click the month title, title changes to years and the
days turn to months.
When you click the Title years, the title changes to groups of years
and the months turn to years.
How do I make the Dialog appear already with the option to pick the
years?

----------------------------------------------------------------------
wp · 2014-04-07 19:48

I think this feature is windows-only, therefore my solution is
windows-only as well:

Code: [Select]uses
  Windows;

{ TForm1 }
const
  MCM_SETCURRENTVIEW = $1000 + 32;

type
  TCalendarView = (cvMonth, cvYear, cvDecade, cvCentury);

procedure SetCalendarView(ACalendar: TCalendar; AView: TCalendarView);
begin
  Windows.SendMessage(ACalendar.Handle, MCM_SETCURRENTVIEW, 0,
ord(AView));
end;

procedure TForm1.FormCreate(Sender: TObject),
begin
  SetCalendarView(Calendar1, cvYear);
end;

See http://msdn.microsoft.com/en-
us/library/windows/desktop/bb760998%28v=vs.85%29.aspx.

Unfortunately, I don't know how to turn off that animation effect.