TMonthCalendar & Delphi Styles (Delphi XE2)

Question

TMontCalendar scheint ein Windows-Wrapper zu sein, so dass er nicht von den neuen VCL-Styles beeinflusst werden kann, kennen Sie eine Lösung dafür?

Answer 1

Die TMonthCalendar ist Wrapper für die MONTHCAL_CLASS und so weit ich weiß, diese Kontrolle nicht Eigentümer Unentschieden nicht unterstützt, sondern bietet die CalColors Eigenschaft, die Sie erlaubt, die Farben der Elemente des Kalenders zu setzen, aber diese Eigenschaft funktioniert nur, wenn Die Themen sind nicht aktiviert. So müssen Sie zuerst die SetWindowTheme Funktion aufrufen, die Themen im Kalender zu deaktivieren, und dann können Sie die Farben zusammen mit den anderen vcl Stile entsprechen.

So etwas wie dieses

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; 

Und das Ergebnis wird sein, diese