New look for LMD Calendar

Do you think that TLMDCalendar looks a little bit outdated? What about this:

Improved look of TLMDCalendar

Yes – it’s still well known TLMDCalendar, and here is the DFM snippet of it:

object LMDCalendar1: TLMDCalendar
  Left = 48
  Top = 87
  Width = 234
  Height = 225
  BackFX.AlphaBlend.FillObject.Style = sfGradient
  BackFX.AlphaBlend.FillObject.AlphaLevel = 255
  BackFX.FlipHorizontal = True
  BackFX.Buffered = True
  Bevel.BorderColor = clGradientActiveCaption
  Bevel.Mode = bmStandard
  Bevel.StandardStyle = lsNone
  CellStyle.Font.Charset = DEFAULT_CHARSET
  CellStyle.Font.Color = 5392449
  CellStyle.Font.Height = -11
  CellStyle.Font.Name = 'Tahoma'
  CellStyle.Font.Style = [fsBold]
  CellStyle.Font3D.LightColor = clSilver
  CellStyle.Font3D.ShadowColor = clGradientActiveCaption
  CellStyle.Font3D.Style = tdSunken
  CellStyle.Bevel.StyleInner = bvShadow
  CellStyle.Bevel.StyleOuter = bvShadow
  CellStyle.Bevel.Mode = bmCustom
  CellStyle.FillObject.Style = sfBrush
  CellStyle.FillObject.AlphaLevel = 255
  CellStyle.FillObject.Brush.Color = 13814989
  Date = 40115.000000000000000000
  Day = 29
  DayCaptionCellStyle.Font.Charset = DEFAULT_CHARSET
  DayCaptionCellStyle.Font.Color = clGray
  DayCaptionCellStyle.Font.Height = -11
  DayCaptionCellStyle.Font.Name = 'Tahoma'
  DayCaptionCellStyle.Font.Style = [fsBold]
  DayCaptionCellStyle.Bevel.StyleOuter = bvLowered
  DayCaptionCellStyle.Bevel.Mode = bmStandard
  DayCaptionCellStyle.Bevel.StandardStyle = lsNone
  DayCaptionCellStyle.FillObject.Style = sfBrush
  DayCaptionCellStyle.FillObject.AlphaLevel = 255
  DayCaptionCellStyle.FillObject.Brush.Color = cl3DLight
  FillObject.AlphaLevel = 255
  FillObject.Brush.Color = clMoneyGreen
  GridPen.Color = clSilver
  GridPen.Style = psClear
  GridPen.Width = 0
  Header.Style.Font.Charset = DEFAULT_CHARSET
  Header.Style.Font.Color = 5392449
  Header.Style.Font.Height = -11
  Header.Style.Font.Name = 'Tahoma'
  Header.Style.Font.Style = [fsBold]
  Header.Style.Font3D.Style = tdSunken
  Header.Style.Bevel.EdgeStyle = etBump
  Header.Style.Bevel.Mode = bmStandard
  Header.Style.Bevel.StandardStyle = lsRaised
  Header.Style.FillObject.Style = sfGradient
  Header.Style.FillObject.Gradient.Color = 16119285
  Header.Style.FillObject.Gradient.ColorCount = 32
  Header.Style.FillObject.Gradient.EndColor = 12697020
  Header.Style.FillObject.AlphaLevel = 255
  Header.Elements = [heMonthName, heMonthBtns, heYear]
  Header.ButtonStyle = ubsOfficeTransp
  Header.ButtonFont.Charset = DEFAULT_CHARSET
  Header.ButtonFont.Color = clWindowText
  Header.ButtonFont.Height = -11
  Header.ButtonFont.Name = 'Tahoma'
  Header.ButtonFont.Style = []
  Header.MinHeight = 22
  Header.MonthName.Alignment = taCenter
  Header.MonthName.Order = 0
  Header.YearValue.Alignment = taCenter
  Header.YearValue.Order = 0
  Header.MonthUp.Alignment = taRightJustify
  Header.MonthUp.Order = 15
  Header.MonthDn.Alignment = taLeftJustify
  Header.MonthDn.Order = -15
  Header.YearUp.Alignment = taRightJustify
  Header.YearUp.Order = 20
  Header.YearDn.Alignment = taLeftJustify
  Header.YearDn.Order = -20
  Header.MonthCombo.Alignment = taLeftJustify
  Header.MonthCombo.Order = 0
  Header.YearCombo.Alignment = taLeftJustify
  Header.YearCombo.Order = 0
  Header.Today.Alignment = taLeftJustify
  Header.Today.Order = 0
  MarkedCellStyle.Font.Charset = DEFAULT_CHARSET
  MarkedCellStyle.Font.Color = clWindowText
  MarkedCellStyle.Font.Height = -11
  MarkedCellStyle.Font.Name = 'Tahoma'
  MarkedCellStyle.Font.Style = []
  MarkedCellStyle.Bevel.Mode = bmCustom
  MarkedCellStyle.FillObject.Style = sfBrush
  MarkedCellStyle.FillObject.AlphaLevel = 255
  MarkedCellStyle.FillObject.Brush.Color = clActiveCaption
  Marked2CellStyle.Font.Charset = DEFAULT_CHARSET
  Marked2CellStyle.Font.Color = clWindowText
  Marked2CellStyle.Font.Height = -11
  Marked2CellStyle.Font.Name = 'Tahoma'
  Marked2CellStyle.Font.Style = []
  Marked2CellStyle.Bevel.Mode = bmCustom
  Marked2CellStyle.FillObject.AlphaLevel = 255
  Month = 10
  SelectedCellStyle.Font.Charset = DEFAULT_CHARSET
  SelectedCellStyle.Font.Color = clWhite
  SelectedCellStyle.Font.Height = -11
  SelectedCellStyle.Font.Name = 'Tahoma'
  SelectedCellStyle.Font.Style = [fsBold]
  SelectedCellStyle.Font3D.ShadowColor = clBlack
  SelectedCellStyle.Font3D.Style = tdShadow
  SelectedCellStyle.Bevel.StyleInner = bvLowered
  SelectedCellStyle.Bevel.StyleOuter = bvNormal
  SelectedCellStyle.Bevel.BorderColor = clGray
  SelectedCellStyle.Bevel.BorderWidth = 1
  SelectedCellStyle.Bevel.LightColor = 15647132
  SelectedCellStyle.Bevel.Mode = bmCustom
  SelectedCellStyle.Bevel.ShadowColor = 15647132
  SelectedCellStyle.FillObject.Style = sfGradient
  SelectedCellStyle.FillObject.Gradient.ColorCount = 100
  SelectedCellStyle.FillObject.Gradient.TwoColors = False
  SelectedCellStyle.FillObject.Gradient.ColorList = (
    15905663
    15568171
    14315781
    14315781)
  SelectedCellStyle.FillObject.AlphaLevel = 255
  SelectedCellStyle.FillObject.Brush.Color = clSkyBlue
  ShowDayHint = True
  SpecialDates = <
    item
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWhite
      Style.Font.Height = -11
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Font3D.ShadowColor = clBlack
      Style.Font3D.Style = tdShadow
      Style.Bevel.StyleInner = bvLowered
      Style.Bevel.StyleOuter = bvLowered
      Style.Bevel.LightColor = 9597787
      Style.Bevel.Mode = bmCustom
      Style.Bevel.ShadowColor = 6509379
      Style.FillObject.Style = sfBrush
      Style.FillObject.AlphaLevel = 255
      Style.FillObject.Brush.Color = 11045750
      Caption = '345345'
      Index = 0
      DisplayName = 'TLMDSpecialDates'
      FDates = (
        40100.681377314820000000
        '557y6')
    end>
  StartDay = 2
  StartWithActualDate = True
  TabOrder = 1
  Year = 2009
end

Just copy it to clipboard and insert on your form.

PS. If you have access to SVN you can add the follwoing 2 strings into the OnCreate event of Form (they paint the non active days of previous or next month):

  LMDCalendar1.InactiveCellStyle := LMDCalendar1.CellStyle;
  LMDCalendar1.InactiveCellStyle.Font.Color := RGB(155, 157, 162);