CalLite: Usage/fi
│
English (en) │
suomi (fi) │
русский (ru) │
Käyttö
Yksinkertaisesti pudota TCalendarLite-komponentti lomakkeelle ja näin saadaan toiminnallinen kuukausikalenteri.
Värien vaihtaminen
Kalenterin ominaisuus Colors
Kerää kaikki asetukset, jotka vaikuttavat eri kohteisiin käytettäviin väreihin:
- ArrowBorderColor: Kalenterin yläpuolella olevien nuolten reunan väri (oletus: clSilver)
- ArrowColor: Kalenterin yläpuolella olevien nuolien täyttöväri (oletus: clSilver)
- BackgroundColor: Koko kalenterin taustaväri (oletus: clWhite)
- BorderColor: Valinnaisen reunuksen väri kalenterin ympärillä (oletus: clSilver). Lisäämällä kalentarin
Options
ominaisuudencoShowBorder
arvo true:ksi niin näytetään reunus. - DayLineColor: Valinnaisen erotuslinjan väri ylimmän navigointiruudun ja kalenterin päiväalueen välillä (oletus: clSilver). Lisää kalenterin
Options
kohdastacoDayLine
päälle jos halutaan näyttää tämä rivi - HolidayColor: Tekstin väri, jota käytetään lomapäivien esittämiseen (oletus: clRed). Lisää tapahtumakäsittelijä kohteeseen
OnGetHolidays
määrittelemään, mitkä päivät ovat lomapäiviä. - PastMonthColor: Tekstin väri, jolla näytetään edellisen tai seuraavan kuukauden päivät (oletus: clSilver).
- SelectedDateColor: Valitun päivän täyttöväri (oletus: clMoneyGreen)
- TextColor: Tavallisien kalenteripäivien tekstin väri (oletus: clBlack)
- TodayFrameColor: Väri, jota käytetään suorakulman viivan värinä tämän päivän päivämäärän ympärille (oletus: clLime)
- TopRowColor: Yläriville käytettävä taustaväri (oletus: clHighlight)
- TopRowTextColor: Tekstin väri, jota käytetään ylärivillä (oletus: clHighlightText)
- WeekendColor: Tekstin väri, jota käytetään esittämään viikonlopun päiviä (default: clRed)
Kalenterin erilaisten asetusten (Options) käyttö
Kalenterin näyttöä voidaan muuttaa muuttamalla kalenterin erilaisia asetuksia (Options):
type
TCalOption = (coBoldDayNames, coBoldHolidays, coBoldToday, coBoldTopRow,
coBoldWeekend, coDayLine, coShowBorder, coShowHolidays,
coShowTodayFrame, coShowTodayName, coShowTodayRow,
coShowWeekend, coUseTopRowColors);
- coBoldDayNames: Päivien nimet näytetään käyttäen niiden nimissä lihavoituja (bold) kirjaimia
- coBoldHolidays: Lomapäivät näytetään käyttäen lihavoituja (bold) kirjaimia. Lomapäiviä ei normaalisti näytetä, mutta lisäämällä tapahtumakäsittelijä
OnGetHolidays
voidaan määritellä lomapäivät. - coBoldToday: Tämän päivän päivämäärän näytetään käyttäen lihavoituja (bold) kirjaimia
- coBoldTopRow: Kuukauden nimi ja vuosi näytetään käyttäen lihavoituja (bold) kirjaimia
- coBoldWeekend: Viikonlopun päivät näytetään käyttäen lihavoituja (bold) kirjaimia
- coDayLine: Lisätään erotuslinja ylimmän navigointiruudun ja kalenterin päiväalueen välille
- coShowBorder: Näytetään suorakulmainen kehys kalenterin ympärillä
- coShowHolidays: Aktivoi korostamaan lomapäivät. Huomaa että täytyy olla myös ohjelmoitu tapahtumankäsittelijä
OnGetHolidays
joka määrittää lomapäivät. - coShowTodayFrame: Näytetään suorakulmainen kehys tämän päivän päivämäärän ympärillä
- coShowTodayName: Lisää päivän nimen riville, joka näyttää tämän päivän päivämäärän (katso myös:
coShowTodayRow
) - coShowTodayRow: Näyttää kalenterin alareunassa olevan rivin joka näyttää tämän päivän päivämäärän (katso myös:
coShowTodayName
). - coShowWeekend: Korostaa viikonlopun päivät (katso myös:
Colors.WeekendColor
). - coUseTopRowColors: Maalaa yläreunan rivin taustat ja tekstit väreillä
Colors.TopRowColor
jaColors.TopRowTextColor
Kielen vaihtaminen
Komponentin käyttämät merkkijonot voidaan helposti muuntaa eri kielille muuttamalla ominaisuuden Languages
arvoa:
type
TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian,
lgPolish, lgFinnish);
Tapahtumat
Tavallisten tapahtumien lisäksi TCalendarLite käynnistää seuraavat tapahtumat. Jotkin tapahtumat saavat sillä hetkellä valittujen solujen vuosi, kuukausi ja päivämäärät parametriksi. Joukko tilalippuja ilmoittaa, onko tämä päivä valittu vai kuuluuko edelliseen tai seuraavaan kuukauteen:
type
TCalCellState = (csSelectedDay, csToday, csOtherMonth);
TCalCellStates = set of TCalCellState;
- OnDateChange: Käynnistyy kun kalenterissa valitaan toinen päivämäärä.
- OnDrawCell: Tällä voidaan ohittaa vakio päivän solun maalausprosessi kokonaan tai osittain. Jos Boolean parametri
AContinueDrawing
on asetettu oikeaksi, normaali maalausprosessi jatkuu tästä tapahtumasta poistuttaessa; jos se on false niin jätetään oletusprosessi tekemättä kyseiselle päivälle. Tapahtumaa voidaan käyttää esimerkiksi lisäämään syntymäpäivä- tai lomakuvakkeita päiväkohtaisiin soluihin. - OnGetDayText: Voidaan käyttää muokataksesi tekstinäyttöä määritetylle päivälle. Oletus on merkkijono, joka näyttää päiväarvon. Tämän tapahtuman avulla lomien nimet voidaan lisätä esimerkiksi kalenteriin.
- OnGetHolidays: Määrittää, mitkä päivät kuluvan kuukauden aikana ovat vapaapäiviä. Juhlapäivien päivämäärät koodataan asetetuiksi biteiksi 32-bittisessä kokonaisluvussa.
- OnHint: Määrittää vihjeen, joka voidaan näyttää ponnahdusikkunassa kyseisenä päivänä. Voidaan hyödyntää esimerkiksi näyttää lomapäivien nimi, jos hiiri "lepää" lomapäivän kohdalla.
- OnMonthChange: Käynnistyy aina kun uusi kuukausi näkyy kalenterissa. Voidaan käyttää tehokkaampaan lomapäivien laskentaan.
- OnPrepareCanvas: Tapahtuu välittömästi ennen kuin solu on maalataan. Voidaan käyttää esimerkiksi Brush- ja Pen-ominaisuuksien ohittamiseen erilaisten taustojen tekemiseksi nimeämisiin ja tärkeisiin tapahtumiin.
Lomapäivien määrittäminen
Kalenteri ei "tiedä" mitään lomapäivistä. Joten täytyy kirjoittaa tapahtumakäsittelijä määrittelemään, mitkä päivät ovat kuluvan kuukauden aikana lomapäiviä. Kuluvan kuukauden kuukausi ja vuosi-arvot välitetään parametreina. Tiedot siitä, että päivä on lomapäivä tai ei, on koodattu bittijoukoksi 32-bittisessä kokonaisluvussa. Käännösyksikkö callite yksinkertaistaa tätä tarjoamalla seuraavat yleisluonteiset aliohjelmat:
- procedure AddHoliday(ADay: Integer; var AHolidays: THolidays): Lisää määritetyn päivän holiday bitti listaan parameterissä
AHolidays
. - function IsHoliday(ADay: Integer; AHolidays: THolidays): Boolean: Tarkistaa onko kyseinen päivä listattu parametrissä
AHolidays
- ClearHolidays(var AHolidays: THolidays): Tyhjentää holiday listan
Tässä on yksinkertainen esimerkki uudenvuoden, joulun, pääsiäisen ja whit sunnuntain lomapäivien määrittelemisestä:
function Easter(year:integer): TDateTime;
var
Day, Month : integer;
a,b,c,d,e,m,n : integer;
begin
case Year div 100 of
17 : begin m := 23; n := 3; end;
18 : begin m := 23; n := 4; end;
19,20 : begin m := 24; n := 5; end;
21 : begin m := 24; n := 6; end;
else raise Exception.Create('Only years after 1700 supported.');
end;
a := Year mod 19;
b := Year mod 4;
c := Year mod 7;
d := (19*a + m) mod 30;
e := (2*b + 4*c + 6*d + n) mod 7;
day := 22 + d + e;
Month := 3;
if Day>31 then begin
Day := d + e - 9;
Month := 4;
if (d=28) and (e=6) and (a>10) then begin
if day=26 then day := 19;
if day=25 then day := 18;
end;
end;
result := EncodeDate(year, month, day);
end;
procedure TForm1.CalendarLite1GetHolidays(Sender: TObject; AMonth, AYear: Integer;
var Holidays: THolidays);
var
d, m, y: Word;
e: TDate;
begin
ClearHolidays(Holidays);
if not FNoHolidays then
begin
// Fixed holidays
case AMonth of
1: AddHoliday(1, Holidays); // Uusi vuosi
12: AddHoliday(25, Holidays); // Joulupäivä
end;
// Pääsiäinen
e := Easter(AYear);
DecodeDate(e, y,m,d);
if m = AMonth then
AddHoliday(d, Holidays);
// Helluntai --> 49 päivää pääsiäisen jälkeen
DecodeDate(e+49, y,m,d);
if m = AMonth then
AddHoliday(d, Holidays);
end;
end;
Varmista, että kalenterissa on valittu vaihtoehto coShowHolidays
, jonka avulla voit korostaa kalenterin lomapäiviä.
Lomapäivien näyttö vihjeenä
Jos halutaan näyttää lomapäivän nimi hint- ponnahdusikkunana kun hiiri "lepää" päivän päällä niin asetetaan kalenterin ShowHint
arvoon true
ja lisätään tapahtumakäsittelijä OnHint
:
procedure TForm1.CalendarLite1Hint(Sender: TObject; AYear, AMonth, ADay: Word;
var AText: String);
var
dt, e: TDate;
begin
AText := '';
case AMonth of
1: if ADay = 1 then AText := 'New Year'; // Uusi vuosi
12: if ADay = 25 then AText := 'Christmas';// Joulupäivä
else
e := Easter(AYear);
dt := EncodeDate(AYear, AMonth, ADay);
if (dt = e) then
AText := 'Easter' // Pääsiäinen
else if (dt = e + 49) then
AText := 'Whit Sunday'; // Helluntai
end;
end;
Lomapäivien nimet kalenteriristikkoon
Voidaan myös lisätä lomapäivien nimet suoraan kalenteriristikkoon. Lisäämällä OnGetDayText
tapahtumakäsittelijä. On huomattava, että kalenterin koon on oltava riittävän suuri, jotta lisätilaa voidaan käyttää tekstille:
procedure TForm1.CalendarLite1GetDayText(Sender: TObject; AYear, AMonth, ADay: Word;
var AText: String);
var
s: String;
begin
GetHintText(Sender, AYear, AMonth, ADay, s);
if s <> '' then
AText := IntToStr(ADay) + LineEnding + s;
end;
Lomapäivät ponnahdusvalikossa
Jos kalenterin PopupMenu ominaisuus on tyhjä, siinä on sisäänrakennettu ponnahdusvalikko, joka näyttää kaikki valitun vuoden lomia. Kuten tavallista, tämä ponnahdusikkuna avautuu klikkaamalla sitä hiiren kakkospainikkeella komponenttia.
Kuvakkeet tietyille päiville
Seuraavassa esimerkissä kuvataan syntymäpäiväkuvake kunkin vuoden marraskuun 11. päivän soluun. Kuvake tallennetaan kuvaluetteloon (TImageList) indeksissä 0:
procedure TForm1.CalendarLite1DrawCell(Sender: TObject; ACanvas: TCanvas;
AYear,AMonth,ADay: Word; AState: TCalCellStates; var ARect: TRect;
var AContinueDrawing: Boolean);
var
bmp: TBitmap;
begin
if (AMonth = 11) and (ADay = 11) and not (csOtherMonth in AState) then begin
bmp := TBitmap.Create;
try
ImageList1.GetBitmap(0, bmp);
ACanvas.Draw(ARect.Left, (ARect.Top + ARect.Bottom - bmp.Height) div 2, bmp);
inc(ARect.Left, bmp.Width + 2);
// Not changing AContinueDrawing from its default value (true) means
// that the day text is drawn by the built-in procedure into the reduced rectangle
finally
bmp.Free;
end;
end;
end;
Monivalinta
Jos ominaisuus MultiSelect
on asetettu true
kalenteriin voidaan valita useita päiviä. Kaikki valitut päivät piirretään korostetulla taustalla. Monivalinta ohjataan pitämällä erikoisnäppäimiä alhaalla, kun valitset päivän joko hiiren klikkauksella tai näppäimen painalluksella:
- CTRL: Jos painetaan CTRL-näppäintä niin kun valitaan toinen päivä niin päiväys lisätään valintaan. Tällä tavoin voidaan valita päivämäärät, jotka eivät ole vierekkäisiä.
- SHIFT: Jos ⇧ Shift-näppäintä pidetään alhaalla päivänvalinnan aikana niin valintaan lisätään kaikki päivät aikaisemmin valitun ja nykyisen päivän välillä.
- Kaksoisklikkaus: Työpäivän kaksoisklikkaus valitsee kaikki työpäivät samalla viikolla. Painamalla CTRL- tai ⇧ Shift-näppäintä alhaalla valita laajenee yhden tai useamman viikon työpäivien valinnaksi.
- Valintaa voidaan laajentaa naapurikuukausiksi, jos näppäimistön nuolinäppäimiä painetaan CTRL-näppäimen ollessa alhaalla.
- Valinta poistetaan, jos jokin päivämäärä on valittu ilman, että painat mitään näistä näppäimistä tai jos yläpalkin nuolia tai pudotusvalikkoja käytetään.
- Jos aiemmin valitut päivät lisätään toisen kerran, niin ne poistetaan valituista.