Potrzebne jest mi zaznaczanie wybranych dat w kalendarzu, znalazłem sposób na pogrubianie:
//skopiowana z biblioteki, bo kompilator nie znajduje
procedure BoldDays(Days: array of LongWord; var MonthBoldInfo: LongWord);
var
I: LongWord;
begin
MonthBoldInfo := 0;
for I := Low(Days) to High(Days) do
if (Days[I] > 0) and (Days[I] < 32) then
MonthBoldInfo := MonthBoldInfo or ($00000001 shl (Days[I] - 1));
end;
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal;
var MonthBoldInfo: Cardinal);
begin
//tu obsługa dla wybraniego miesiąca Month
BoldDays([1,8], MonthBoldInfo); //przykładowe zaznaczenie 1 i 8 dnia
end;
Kłopot w tym, że pogrubienie jest słabo widoczne, więc lepiej zmienić kolor tła na różne wybrane sposoby. Czy ktoś wpadł na sposób takiego zaznaczania?
Z góry dziękuję