CalLite: Usage/fi: what changed
Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | - | ||
| 2 | - | ||
| 3 | - | ||
| 4 | - | ||
| 5 | - | ||
| 6 | - | ||
| 7 | - | ||
| 8 | - | ||
| 9 | - | ||
| 10 | - | ||
| 11 | - | ||
| 12 | - | ||
| 13 | - | ||
| 14 | - | ||
| 15 | - | ||
| 1 | + |  | |
| 16 | 2 | ||
| 17 | 3 | # Käyttö | |
| 18 | 4 | ||
| 19 | - | ||
| 5 | + | Yksinkertaisesti pudota [[CalLite/fi|TCalendarLite]]-komponentti lomakkeelle ja näin saadaan toiminnallinen kuukausikalenteri. | |
| 20 | 6 | ||
| 21 | 7 | ## Värien vaihtaminen | |
| 22 | 8 | ||
| 23 | - | ||
| 9 | + | Kalenterin ominaisuus `Colors` Kerää kaikki asetukset, jotka vaikuttavat eri kohteisiin käytettäviin väreihin: | |
| 24 | 10 | ||
| 25 | - | ||
| 26 | - | ||
| 27 | - | ||
| 28 | - | ||
| 29 | - | ||
| 30 | - | ||
| 31 | - | ||
| 32 | - | ||
| 33 | - | ||
| 34 | - | ||
| 35 | - | ||
| 36 | - | ||
| 37 | - | ||
| 11 | + | - **ArrowBorderColor**: Kalenterin yläpuolella olevien nuolten reunan väri (oletus: clSilver) | |
| 12 | + | - **ArrowColor**: Kalenterin yläpuolella olevien nuolien täyttöväri (oletus: clSilver) | |
| 13 | + | - **BackgroundColor**: Koko kalenterin taustaväri (oletus: clWhite) | |
| 14 | + | - **BorderColor**: Valinnaisen reunuksen väri kalenterin ympärillä (oletus: clSilver). Lisäämällä kalentarin `Options` ominaisuuden `coShowBorder` arvo true:ksi niin näytetään reunus. | |
| 15 | + | - **DayLineColor**: Valinnaisen erotuslinjan väri ylimmän navigointiruudun ja kalenterin päiväalueen välillä (oletus: clSilver). Lisää kalenterin `Options` kohdasta `coDayLine` päälle jos halutaan näyttää tämä rivi | |
| 16 | + | - **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ä. | |
| 17 | + | - **PastMonthColor**: Tekstin väri, jolla näytetään edellisen tai seuraavan kuukauden päivät (oletus: clSilver). | |
| 18 | + | - **SelectedDateColor**: Valitun päivän täyttöväri (oletus: clMoneyGreen) | |
| 19 | + | - **TextColor**: Tavallisien kalenteripäivien tekstin väri (oletus: clBlack) | |
| 20 | + | - **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) | |
| 21 | + | - **TopRowColor**: Yläriville käytettävä taustaväri (oletus: clHighlight) | |
| 22 | + | - **TopRowTextColor**: Tekstin väri, jota käytetään ylärivillä (oletus: clHighlightText) | |
| 23 | + | - **WeekendColor**: Tekstin väri, jota käytetään esittämään viikonlopun päiviä (default: clRed) | |
| 38 | 24 | ||
| 39 | 25 | ## Kalenterin erilaisten asetusten (Options) käyttö | |
| 40 | 26 | ||
| 41 | - | ||
| 42 | - | ||
| 27 | + | Kalenterin näyttöä voidaan muuttaa muuttamalla kalenterin erilaisia asetuksia (Options): | |
| 28 | + | ||
| 29 | + | ``` pascal | |
| 43 | 30 | type | |
| 44 | - | ||
| 45 | - | ||
| 46 | - | ||
| 47 | - | ||
| 31 | + | TCalOption = (coBoldDayNames, coBoldHolidays, coBoldToday, coBoldTopRow, | |
| 32 | + | coBoldWeekend, coDayLine, coShowBorder, coShowHolidays, | |
| 33 | + | coShowTodayFrame, coShowTodayName, coShowTodayRow, | |
| 34 | + | coShowWeekend, coUseTopRowColors); | |
| 48 | 35 | ``` | |
| 49 | 36 | ||
| 50 | - | ||
| 51 | - | ||
| 52 | - | ||
| 53 | - | ||
| 54 | - | ||
| 55 | - | ||
| 56 | - | ||
| 57 | - | ||
| 58 | - | ||
| 59 | - | ||
| 60 | - | ||
| 61 | - | ||
| 62 | - | ||
| 37 | + | - **coBoldDayNames**: Päivien nimet näytetään käyttäen niiden nimissä lihavoituja (bold) kirjaimia | |
| 38 | + | - **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. | |
| 39 | + | - **coBoldToday**: Tämän päivän päivämäärän näytetään käyttäen lihavoituja (bold) kirjaimia | |
| 40 | + | - **coBoldTopRow**: Kuukauden nimi ja vuosi näytetään käyttäen lihavoituja (bold) kirjaimia | |
| 41 | + | - **coBoldWeekend**: Viikonlopun päivät näytetään käyttäen lihavoituja (bold) kirjaimia | |
| 42 | + | - **coDayLine**: Lisätään erotuslinja ylimmän navigointiruudun ja kalenterin päiväalueen välille | |
| 43 | + | - **coShowBorder**: Näytetään suorakulmainen kehys kalenterin ympärillä | |
| 44 | + | - **coShowHolidays**: Aktivoi korostamaan lomapäivät. Huomaa että täytyy olla myös ohjelmoitu tapahtumankäsittelijä `OnGetHolidays` joka määrittää lomapäivät. | |
| 45 | + | - **coShowTodayFrame**: Näytetään suorakulmainen kehys tämän päivän päivämäärän ympärillä | |
| 46 | + | - **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`) | |
| 47 | + | - **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`). | |
| 48 | + | - **coShowWeekend**: Korostaa viikonlopun päivät (katso myös: `Colors.WeekendColor`). | |
| 49 | + | - **coUseTopRowColors**: Maalaa yläreunan rivin taustat ja tekstit väreillä `Colors.TopRowColor` ja `Colors.TopRowTextColor` | |
| 63 | 50 | ||
| 64 | 51 | ## Kielen vaihtaminen | |
| 65 | 52 | ||
| 66 | - | ||
| 67 | - | ||
| 53 | + | Komponentin käyttämät merkkijonot voidaan helposti muuntaa eri kielille muuttamalla ominaisuuden `Languages` arvoa: | |
| 54 | + | ||
| 55 | + | ``` pascal | |
| 68 | 56 | type | |
| 69 | - | ||
| 70 | - | ||
| 57 | + | TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian, | |
| 58 | + | lgPolish, lgFinnish); | |
| 71 | 59 | ``` | |
| 72 | 60 | ||
| 73 | 61 | ## Tapahtumat | |
| 74 | 62 | ||
| 75 | - | ||
| 76 | - | ||
| 63 | + | 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: | |
| 64 | + | ||
| 65 | + | ``` pascal | |
| 77 | 66 | type | |
| 78 | - | ||
| 79 | - | ||
| 67 | + | TCalCellState = (csSelectedDay, csToday, csOtherMonth); | |
| 68 | + | TCalCellStates = set of TCalCellState; | |
| 80 | 69 | ``` | |
| 81 | 70 | ||
| 82 | - | ||
| 83 | - | ||
| 84 | - | ||
| 85 | - | ||
| 86 | - | ||
| 87 | - | ||
| 88 | - | ||
| 71 | + | - **OnDateChange**: Käynnistyy kun kalenterissa valitaan toinen päivämäärä. | |
| 72 | + | - **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. | |
| 73 | + | - **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. | |
| 74 | + | - **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. | |
| 75 | + | - **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. | |
| 76 | + | - **OnMonthChange**: Käynnistyy aina kun uusi kuukausi näkyy kalenterissa. Voidaan käyttää tehokkaampaan lomapäivien laskentaan. | |
| 77 | + | - **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. | |
| 89 | 78 | ||
| 90 | 79 | ## Lomapäivien määrittäminen | |
| 91 | 80 | ||
| 92 | - | ||
| 81 | + | 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: | |
| 93 | 82 | ||
| 94 | - | ||
| 95 | - | ||
| 96 | - | ||
| 83 | + | - procedure **AddHoliday**(ADay: Integer; var AHolidays: THolidays): Lisää määritetyn päivän holiday bitti listaan parameterissä `AHolidays`. | |
| 84 | + | - function **IsHoliday**(ADay: Integer; AHolidays: THolidays): Boolean: Tarkistaa onko kyseinen päivä listattu parametrissä `AHolidays` | |
| 85 | + | - **ClearHolidays**(var AHolidays: THolidays): Tyhjentää holiday listan | |
| 97 | 86 | ||
| 98 | - | ||
| 99 | - | ||
| 87 | + | Tässä on yksinkertainen esimerkki uudenvuoden, joulun, pääsiäisen ja whit sunnuntain lomapäivien määrittelemisestä: | |
| 88 | + | ||
| 89 | + | ``` pascal | |
| 100 | 90 | function Easter(year:integer): TDateTime; | |
| 101 | - | ||
| 102 | - | ||
| 103 | - | ||
| 104 | - | ||
| 105 | - | ||
| 106 | - | ||
| 107 | - | ||
| 108 | - | ||
| 109 | - | ||
| 110 | - | ||
| 111 | - | ||
| 112 | - | ||
| 113 | - | ||
| 114 | - | ||
| 115 | - | ||
| 116 | - | ||
| 117 | - | ||
| 118 | - | ||
| 119 | - | ||
| 120 | - | ||
| 121 | - | ||
| 122 | - | ||
| 123 | - | ||
| 124 | - | ||
| 125 | - | ||
| 126 | - | ||
| 127 | - | ||
| 91 | + | var | |
| 92 | + | Day, Month : integer; | |
| 93 | + | a,b,c,d,e,m,n : integer; | |
| 94 | + | begin | |
| 95 | + | case Year div 100 of | |
| 96 | + | 17 : begin m := 23; n := 3; end; | |
| 97 | + | 18 : begin m := 23; n := 4; end; | |
| 98 | + | 19,20 : begin m := 24; n := 5; end; | |
| 99 | + | 21 : begin m := 24; n := 6; end; | |
| 100 | + | else raise Exception.Create('Only years after 1700 supported.'); | |
| 101 | + | end; | |
| 102 | + | a := Year mod 19; | |
| 103 | + | b := Year mod 4; | |
| 104 | + | c := Year mod 7; | |
| 105 | + | d := (19*a + m) mod 30; | |
| 106 | + | e := (2*b + 4*c + 6*d + n) mod 7; | |
| 107 | + | day := 22 + d + e; | |
| 108 | + | Month := 3; | |
| 109 | + | if Day>31 then begin | |
| 110 | + | Day := d + e - 9; | |
| 111 | + | Month := 4; | |
| 112 | + | if (d=28) and (e=6) and (a>10) then begin | |
| 113 | + | if day=26 then day := 19; | |
| 114 | + | if day=25 then day := 18; | |
| 128 | 115 | end; | |
| 129 | - | ||
| 130 | - | ||
| 131 | - | ||
| 132 | - | ||
| 133 | - | ||
| 134 | - | ||
| 135 | - | ||
| 136 | - | ||
| 137 | - | ||
| 138 | - | ||
| 139 | - | ||
| 140 | - | ||
| 141 | - | ||
| 142 | - | ||
| 143 | - | ||
| 144 | - | ||
| 145 | - | ||
| 146 | - | ||
| 147 | - | ||
| 148 | - | ||
| 149 | - | ||
| 150 | - | ||
| 151 | - | ||
| 152 | - | ||
| 153 | - | ||
| 116 | + | end; | |
| 117 | + | result := EncodeDate(year, month, day); | |
| 118 | + | end; | |
| 119 | + | ||
| 120 | + | procedure TForm1.CalendarLite1GetHolidays(Sender: TObject; AMonth, AYear: Integer; | |
| 121 | + | var Holidays: THolidays); | |
| 122 | + | var | |
| 123 | + | d, m, y: Word; | |
| 124 | + | e: TDate; | |
| 125 | + | begin | |
| 126 | + | ClearHolidays(Holidays); | |
| 127 | + | if not FNoHolidays then | |
| 128 | + | begin | |
| 129 | + | // Fixed holidays | |
| 130 | + | case AMonth of | |
| 131 | + | 1: AddHoliday(1, Holidays); // Uusi vuosi | |
| 132 | + | 12: AddHoliday(25, Holidays); // Joulupäivä | |
| 154 | 133 | end; | |
| 134 | + | // Pääsiäinen | |
| 135 | + | e := Easter(AYear); | |
| 136 | + | DecodeDate(e, y,m,d); | |
| 137 | + | if m = AMonth then | |
| 138 | + | AddHoliday(d, Holidays); | |
| 139 | + | // Helluntai --> 49 päivää pääsiäisen jälkeen | |
| 140 | + | DecodeDate(e+49, y,m,d); | |
| 141 | + | if m = AMonth then | |
| 142 | + | AddHoliday(d, Holidays); | |
| 143 | + | end; | |
| 144 | + | end; | |
| 155 | 145 | ``` | |
| 156 | 146 | ||
| 157 | - | ||
| 158 | - | ||
| 159 | - | ||
| 147 | + | Varmista, että kalenterissa on valittu vaihtoehto `coShowHolidays`, jonka avulla voit korostaa kalenterin lomapäiviä. | |
| 160 | 148 | ||
| 161 | 149 | ### Lomapäivien näyttö vihjeenä | |
| 162 | 150 | ||
| 163 | - | ||
| 164 | - | ||
| 151 | + | 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`: | |
| 152 | + | ||
| 153 | + | ``` pascal | |
| 165 | 154 | procedure TForm1.CalendarLite1Hint(Sender: TObject; AYear, AMonth, ADay: Word; | |
| 166 | - | ||
| 167 | - | ||
| 168 | - | ||
| 169 | - | ||
| 170 | - | ||
| 171 | - | ||
| 172 | - | ||
| 173 | - | ||
| 174 | - | ||
| 175 | - | ||
| 176 | - | ||
| 177 | - | ||
| 178 | - | ||
| 179 | - | ||
| 180 | - | ||
| 181 | - | ||
| 182 | - | ||
| 155 | + | var AText: String); | |
| 156 | + | var | |
| 157 | + | dt, e: TDate; | |
| 158 | + | begin | |
| 159 | + | AText := ''; | |
| 160 | + | case AMonth of | |
| 161 | + | 1: if ADay = 1 then AText := 'New Year'; // Uusi vuosi | |
| 162 | + | 12: if ADay = 25 then AText := 'Christmas';// Joulupäivä | |
| 163 | + | else | |
| 164 | + | e := Easter(AYear); | |
| 165 | + | dt := EncodeDate(AYear, AMonth, ADay); | |
| 166 | + | if (dt = e) then | |
| 167 | + | AText := 'Easter' // Pääsiäinen | |
| 168 | + | else if (dt = e + 49) then | |
| 169 | + | AText := 'Whit Sunday'; // Helluntai | |
| 170 | + | end; | |
| 171 | + | end; | |
| 183 | 172 | ``` | |
| 184 | 173 | ||
| 185 | 174 | ### Lomapäivien nimet kalenteriristikkoon | |
| 186 | 175 | ||
| 187 | - | ||
| 188 | - | ||
| 176 | + | 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: | |
| 177 | + | ||
| 178 | + | ``` pascal | |
| 189 | 179 | procedure TForm1.CalendarLite1GetDayText(Sender: TObject; AYear, AMonth, ADay: Word; | |
| 190 | - | ||
| 191 | - | ||
| 192 | - | ||
| 193 | - | ||
| 194 | - | ||
| 195 | - | ||
| 196 | - | ||
| 197 | - | ||
| 180 | + | var AText: String); | |
| 181 | + | var | |
| 182 | + | s: String; | |
| 183 | + | begin | |
| 184 | + | GetHintText(Sender, AYear, AMonth, ADay, s); | |
| 185 | + | if s <> '' then | |
| 186 | + | AText := IntToStr(ADay) + LineEnding + s; | |
| 187 | + | end; | |
| 198 | 188 | ``` | |
| 199 | 189 | ||
| 200 | 190 | ### Lomapäivät ponnahdusvalikossa | |
| 201 | 191 | ||
| 202 | - | ||
| 192 | + | 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. | |
| 203 | 193 | ||
| 204 | 194 | ## Kuvakkeet tietyille päiville | |
| 205 | 195 | ||
| 206 | - | ||
| 207 | - | ||
| 196 | + | Seuraavassa esimerkissä kuvataan syntymäpäiväkuvake kunkin vuoden marraskuun 11. päivän soluun. Kuvake tallennetaan kuvaluetteloon ([[TImageList]]) indeksissä 0: | |
| 197 | + | ||
| 198 | + | ``` pascal | |
| 208 | 199 | procedure TForm1.CalendarLite1DrawCell(Sender: TObject; ACanvas: TCanvas; | |
| 209 | - | ||
| 210 | - | ||
| 211 | - | ||
| 212 | - | ||
| 213 | - | ||
| 214 | - | ||
| 215 | - | ||
| 216 | - | ||
| 217 | - | ||
| 218 | - | ||
| 219 | - | ||
| 220 | - | ||
| 221 | - | ||
| 222 | - | ||
| 223 | - | ||
| 224 | - | ||
| 225 | - | ||
| 200 | + | AYear,AMonth,ADay: Word; AState: TCalCellStates; var ARect: TRect; | |
| 201 | + | var AContinueDrawing: Boolean); | |
| 202 | + | var | |
| 203 | + | bmp: TBitmap; | |
| 204 | + | begin | |
| 205 | + | if (AMonth = 11) and (ADay = 11) and not (csOtherMonth in AState) then begin | |
| 206 | + | bmp := TBitmap.Create; | |
| 207 | + | try | |
| 208 | + | ImageList1.GetBitmap(0, bmp); | |
| 209 | + | ACanvas.Draw(ARect.Left, (ARect.Top + ARect.Bottom - bmp.Height) div 2, bmp); | |
| 210 | + | inc(ARect.Left, bmp.Width + 2); | |
| 211 | + | // Not changing AContinueDrawing from its default value (true) means | |
| 212 | + | // that the day text is drawn by the built-in procedure into the reduced rectangle | |
| 213 | + | finally | |
| 214 | + | bmp.Free; | |
| 226 | 215 | end; | |
| 216 | + | end; | |
| 217 | + | end; | |
| 227 | 218 | ``` | |
| 228 | 219 | ||
| 229 | 220 | ## Monivalinta | |
| 230 | 221 | ||
| 231 | - | ||
| 222 | + | 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: | |
| 232 | 223 | ||
| 233 | - | ||
| 234 | - | ||
| 235 | - | ||
| 236 | - | ||
| 237 | - | ||
| 238 | - | ||
| 224 | + | - **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ä. | |
| 225 | + | - **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ä. | |
| 226 | + | - **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. | |
| 227 | + | - Valintaa voidaan laajentaa naapurikuukausiksi, jos näppäimistön nuolinäppäimiä painetaan `CTRL`-näppäimen ollessa alhaalla. | |
| 228 | + | - 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. | |
| 229 | + | - Jos aiemmin valitut päivät lisätään toisen kerran, niin ne poistetaan valituista. | |
| 239 | 230 | ||
| 240 | 231 | --- | |
| 241 | - | ||
| 232 | + | *From the Free Pascal wiki, page "CalLite: Usage/fi", as it stood on 2019-10-24 after a change by Djzepi, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |