I'm attempting to use an event of a Calendar component that is written like
so:
procedure TCalendarF10.MyCalendar1GetBoldDays(Sender: TObject; Year, Month:
Word; var Bitmask: Cardinal);
begin
if ( Month = 12) and ( Year = 2006 ) then
begin
Bitmask := KeepCalendar.DaysToBitmask([3, 6, 22, 29]);
end;
end;
That's the event with an example of how one supposedly uses it. So if the
Calendar happens to be displaying the month and Year given the days provided
will display as Bolded text. Now I can, in my Form's OnCreate, set the
Calendar to the current Month and Year, and I can pass them as Integer
parameters to this event as required, and I can get all the days in this
month that I want bolded. I can get them in the form, of an IntegerList, or
add them to a set, or as an array. First I tried a dynamic array as there's
no way of knowing until you get all the dates how many there are, and left
over indexes of a static array can turn up as anything, but it won't accept
a dynamic array. BTW...DaysToBitMask is shown as:
DaysToBitMask(Byte[])
It's parameter being listed as:
Days : Calendar.DaystoBitMask.$Unnamed Type
And returns:
Cardinal
In any case, no matter how I attempt to pass the days as an array
and of whatever type I try, I get an error! Can anyone help me to pass the
proper parameters to the Event so I can use it...Please!
from Robert Meek dba Tangentals Design CCopyright 2006
Proud to be a moderator of "The Delphi Lists" at elists.org
"When I examine myself and my methods of thought, I come to the conclusion
that the gift of Fantasy has meant more to me then my talent for absorbing
positive knowledge!"
Albert Einstein
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
