Unit DrawCalendar

Version 1.3 // TDrawCalendar is a component based on though not descended from the Calendar in the Samples page of the pallette. I wanted to unpublish the font property which meant I could not descend it directly. Therefore a lot of this code is identical to that of the TCalendar component. I have put all original code at the end of the listing where possible, and highlighted changes to the TCalendar code. // TDrawCalendar is my first component so I do not expect it to be perfect. My programming techniques and style may also be questionable as I am not a professional developer but a home taught one who enjoys programming in my spare time. // The purpose of this component is to add flexibility to the calendar component to allow: 1. Drawing bitmaps, Icons and text onto particular dates of the calendar. 2. Allow font setting for the Days of the week, Date numbers and added text as three separate properties (HeaderFont, DateFont and TextFont resp.). // //

Classes

TDrawCalendar -

Functions

Register - Function to convert a string to a pChar.

Types

TCoordResults
TDayOfWeek

Constants

Variables


Functions


procedure Register;

Function to convert a string to a pChar. This function was borrowed from Delphi Developers Guide by Pacheco & Teixeira

Types


TCoordResults = (crXIcon, crYIcon, crXText, crYText, crXColor, crYColor);

TDayOfWeek = 0..6

Constants


Variables