diff --git a/components/longtimer/longtimerpackage.lpk b/components/longtimer/longtimerpackage.lpk index 706952376..740e55294 100644 --- a/components/longtimer/longtimerpackage.lpk +++ b/components/longtimer/longtimerpackage.lpk @@ -1,54 +1,75 @@ - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +It is intended for TTrayIcon applications. DailyHour is a 24-hour clock (16 = 4pm) and MonthlyDate is best < 29 "/> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/components/longtimer/ulongtimer.pas b/components/longtimer/ulongtimer.pas index 7432886f1..588b96f38 100644 --- a/components/longtimer/ulongtimer.pas +++ b/components/longtimer/ulongtimer.pas @@ -9,11 +9,22 @@ unit uLongTimer; 4. The underlying interval is 30 minutes (when idle) Copyright (C)2014 minesadorada@charcodelvalle.com - + Modified GPL This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your - option) any later version. + option) any later version with the following modification: + + As a special exception, the copyright holders of this library give you + permission to link this library with independent modules to produce an + executable, regardless of the license terms of these independent modules,and + to copy and distribute the resulting executable under terms of your choice, + provided that you also meet, for each linked independent module, the terms + and conditions of the license of that module. An independent module is a + module which is not derived from or based on this library. If you modify + this library, you may extend this exception to your version of the library, + but you are not obligated to do so. If you do not wish to do so, delete this + exception statement from your version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or @@ -23,6 +34,7 @@ unit uLongTimer; You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + } {$mode objfpc}{$H+} @@ -103,7 +115,7 @@ implementation const C_OneMinute = 60000; - C_Version = '0.0.2'; + C_Version = '0.0.3'; (* V0.0.1: Initial commit @@ -141,7 +153,7 @@ begin AboutBoxAuthorname := 'Gordon Bamber'; // AboutBoxOrganisation (string) AboutBoxAuthorEmail := 'minesadorada@charcodelvalle.com'; - AboutBoxLicenseType := 'LGPL';// (string e.g. 'GPL', ModifiedGPL' etc + AboutBoxLicenseType := 'MODIFIEDGPL';// (string e.g. 'GPL', ModifiedGPL' etc fHourDone := False; fDayDone := False; @@ -308,7 +320,7 @@ begin // Temporarily disable running timer? TimerEnabled := Enabled; Enabled := False; - if (aHour >= 0) and (aHour <= 24) then + if ((aHour >= 0) and (aHour <= 24)) then fHour := aHour; Enabled := TimerEnabled; end; @@ -329,4 +341,4 @@ begin Enabled := TimerEnabled; end; -end. \ No newline at end of file +end.