Tips and Frequently Asked Questions
Custom drawing in TPlannerCalendar
Via the OnCellDraw event, the days on a TPlannerCalendar can be fully custom drawn. In the code snippet presented, today is drawn with a yellow rectangular background while every odd day is painted with a bold font.
procedure TForm2.PlannerCalendar1CellDraw(Sender: TObject; Canvas: TCanvas; Day: TDate; Selected, Marked, InMonth: Boolean; Rect: TRect); var da,mo,ye: word; s: string; begin DecodeDate(day, ye, mo, da); if day = int(Now) then begin Canvas.Brush.Color := clYellow; Canvas.Rectangle(Rect); Canvas.Font.Color := clBlue; end; s := inttostr(da); if odd(Da) then Canvas.Font.Style := [fsBold]; inflateRect(rect,-1,-1); DrawText(Canvas.Handle, pchar(s), length(s), rect, DT_CENTER or DT_VCENTER); end;
Pricing
Single Developer License
Small Team License
Site License
TMS VCL UI Pack
€ 375
€
150
yearly renewal
license for 1 developer
MOST POPULAR
BEST VALUE
All prices excl. VAT. Renewal price is subject to change and only valid up to 30 days after license has expired. After renewal period a discount price is offered to renew the license.
Free Trial
Note that the TMS VCL UI Pack replaces the TMS Component Pack. Both products can't be installed simultaneously. Therefore TMS Component Pack must first be uninstalled before installing the TMS VCL UI Pack