TMonthCalendar & Delphi Styles (Delphi XE2)

Question

TMontCalendar seems to be a Windows wrapper so it can't be affected by the new VCL Styles, do you know a solution for it ?

Until RRUZ gives you the solution you might want to read about vcl-styles-and-owner-draw. In particular TStyleHook. — LU RD
Here is someone who hacked TWebBrowser to use VCL styles: theroadtodelphi.wordpress.com/2012/03/20/… — Jan Doggen
And this may also help theroadtodelphi.wordpress.com/2012/03/14/… — Jan Doggen
@all : I saw these (excellent) posts, but I would know if htere was a more elegant & simple solution. — philnext

RRUZ RRUZ · Accepted Answer · 2012-04-10T15:21:25

The TMonthCalendar is wrapper for the MONTHCAL_CLASS and as far i know this control doesn't support owner draw, but provides the CalColors property which allow you to set the colors of the elements of the calendar, but this property only works when the themes is not enabled. So first you must call the SetWindowTheme function to disable the themes in the calendar and then you can set the colors to match with the vcl styles.

Something like this

uses
  Vcl.Styles,
  Vcl.Themes,
  uxTheme;

Procedure SetVclStylesColorsCalendar( MonthCalendar: TMonthCalendar);
Var
  LTextColor, LBackColor : TColor;
begin
   uxTheme.SetWindowTheme(MonthCalendar.Handle, '', '');//disable themes in the calendar
   MonthCalendar.AutoSize:=True;//remove border

   //get the vcl styles colors
   LTextColor:=StyleServices.GetSystemColor(clWindowText);
   LBackColor:=StyleServices.GetSystemColor(clWindow);

   //set the colors of the calendar
   MonthCalendar.CalColors.BackColor:=LBackColor;
   MonthCalendar.CalColors.MonthBackColor:=LBackColor;
   MonthCalendar.CalColors.TextColor:=LTextColor;
   MonthCalendar.CalColors.TitleBackColor:=LBackColor;
   MonthCalendar.CalColors.TitleTextColor:=LTextColor;
   MonthCalendar.CalColors.TrailingTextColor:=LTextColor;
end;

And the result will be this

enter image description here

TMonthCalendar & Delphi Styles (Delphi XE2)

1 Answers