You've already forked lazarus-ccr
CalLite: Initial commit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5312 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
36
components/callite/callight_pkg.lpk
Normal file
36
components/callite/callight_pkg.lpk
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="4">
|
||||||
|
<Name Value="callight_pkg"/>
|
||||||
|
<Type Value="RunAndDesignTime"/>
|
||||||
|
<Author Value="Howard Page-Clark, Ariel Rodriguez and Werner Pamler"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="source"/>
|
||||||
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Description Value="A lightweight calendar component"/>
|
||||||
|
<License Value="Modified LGL2 (with linking exception)"/>
|
||||||
|
<Version Minor="1"/>
|
||||||
|
<Files Count="1">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="source/calendarlite.pas"/>
|
||||||
|
<HasRegisterProc Value="True"/>
|
||||||
|
<UnitName Value="CalendarLite"/>
|
||||||
|
</Item1>
|
||||||
|
</Files>
|
||||||
|
<RequiredPkgs Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LCLBase"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
||||||
85
components/callite/demo1/CalLiteTest.lpi
Normal file
85
components/callite/demo1/CalLiteTest.lpi
Normal file
@ -0,0 +1,85 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="9"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<Title Value="CalLiteTest"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="callight_pkg"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="CalLiteTest.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<OtherUnitFiles Value="callite;C:\Lazarus\AviControls\;C:\Lazarus\AviControls\StickyStuff\"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf2Set"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="4">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<Name Value="Exception"/>
|
||||||
|
</Item4>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
21
components/callite/demo1/CalLiteTest.lpr
Normal file
21
components/callite/demo1/CalLiteTest.lpr
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
program CalLiteTest;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource := True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
58
components/callite/demo1/main.lfm
Normal file
58
components/callite/demo1/main.lfm
Normal file
@ -0,0 +1,58 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 400
|
||||||
|
Height = 272
|
||||||
|
Top = 115
|
||||||
|
Width = 256
|
||||||
|
Caption = 'Form1'
|
||||||
|
ClientHeight = 272
|
||||||
|
ClientWidth = 256
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
KeyPreview = True
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnResize = FormResize
|
||||||
|
Position = poScreenCenter
|
||||||
|
LCLVersion = '1.7'
|
||||||
|
object edtYear: TEdit
|
||||||
|
Left = 122
|
||||||
|
Height = 18
|
||||||
|
Top = 15
|
||||||
|
Width = 38
|
||||||
|
Alignment = taCenter
|
||||||
|
AutoSize = False
|
||||||
|
BorderStyle = bsNone
|
||||||
|
OnKeyDown = edtYearKeyDown
|
||||||
|
ParentColor = True
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'Year'
|
||||||
|
end
|
||||||
|
object edtMonth: TEdit
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = edtYear
|
||||||
|
AnchorSideRight.Control = edtYear
|
||||||
|
Left = 84
|
||||||
|
Height = 18
|
||||||
|
Top = 15
|
||||||
|
Width = 38
|
||||||
|
Alignment = taCenter
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
BorderStyle = bsNone
|
||||||
|
OnKeyDown = edtMonthKeyDown
|
||||||
|
ParentColor = True
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'Month'
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 5
|
||||||
|
Height = 30
|
||||||
|
Top = 237
|
||||||
|
Width = 246
|
||||||
|
Align = alBottom
|
||||||
|
BorderSpacing.Around = 5
|
||||||
|
Caption = 'Use Up/Down Arrows to change the Month/Year. Press and hold for long jumps.'
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
WordWrap = True
|
||||||
|
end
|
||||||
|
end
|
||||||
115
components/callite/demo1/main.pas
Normal file
115
components/callite/demo1/main.pas
Normal file
@ -0,0 +1,115 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
||||||
|
LclType, Buttons, StdCtrls, ComCtrls, Grids, DateUtils, CalendarLite;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
edtYear: TEdit;
|
||||||
|
edtMonth: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure btnCloseClick(Sender: TObject);
|
||||||
|
procedure edtYearKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||||
|
procedure edtMonthKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormResize(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
CalendarLite1: TCalendarLite;
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
var
|
||||||
|
AYear: Integer;
|
||||||
|
AMonth: Integer;
|
||||||
|
MonthsList: TStringList;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
CalendarLite1 := TCalendarLite.Create(self);
|
||||||
|
with CalendarLite1 do begin
|
||||||
|
Parent := self;
|
||||||
|
Left := 20;
|
||||||
|
// Height := 160;
|
||||||
|
Top := 40;
|
||||||
|
Width := self.Width - 2*Left;
|
||||||
|
Height := label1.Top - Top - 20;
|
||||||
|
ParentColor := false;
|
||||||
|
Date := 41574;
|
||||||
|
DisplayTexts := '"Today is",dd/mm/yyyy,"Holidays during","There are no holidays set for"';
|
||||||
|
WeekendDays := [dowSaturday];
|
||||||
|
Anchors := [akLeft, akTop, akRight, akBottom];
|
||||||
|
end;
|
||||||
|
|
||||||
|
MonthsList:= TStringList.Create;
|
||||||
|
for I:= 0 to 11 do begin
|
||||||
|
MonthsList.Add(AnsiToUTF8(ShortMonthNames[I+1]));
|
||||||
|
end;
|
||||||
|
|
||||||
|
AYear:= YearOf(Now);
|
||||||
|
AMonth:= MonthOf(Now)-1;
|
||||||
|
edtYear.Caption := IntToStr(AYear);
|
||||||
|
edtMonth.Caption := MonthsList[AMonth];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormResize(Sender: TObject);
|
||||||
|
begin
|
||||||
|
edtMonth.Left := Width div 2 - edtMonth.Width - 2;
|
||||||
|
edtYear.Left := Width div 2 + 2;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.btnCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FreeAndNil(MonthsList);
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.edtYearKeyDown(Sender: TObject; var Key: Word;
|
||||||
|
Shift: TShiftState);
|
||||||
|
begin
|
||||||
|
case Key of
|
||||||
|
VK_Up : Inc(AYear);
|
||||||
|
VK_Down : Dec(AYear);
|
||||||
|
end;
|
||||||
|
edtYear.Caption := IntToStr(AYear);
|
||||||
|
CalendarLite1.Date := RecodeYear(CalendarLite1.Date,AYear);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.edtMonthKeyDown(Sender: TObject; var Key: Word;
|
||||||
|
Shift: TShiftState);
|
||||||
|
begin
|
||||||
|
case Key of
|
||||||
|
VK_Up : Inc(AMonth);
|
||||||
|
VK_Down : Dec(AMonth);
|
||||||
|
end;
|
||||||
|
case AMonth of
|
||||||
|
-1: AMonth := 11;
|
||||||
|
12: AMonth := 0;
|
||||||
|
end;
|
||||||
|
edtMonth.Text:= MonthsList[AMonth];
|
||||||
|
CalendarLite1.Date:= RecodeMonth(CalendarLite1.Date,AMonth+1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
104
components/callite/demo2/testCalLite.lpi
Normal file
104
components/callite/demo2/testCalLite.lpi
Normal file
@ -0,0 +1,104 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="9"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<Title Value="testCalLite"/>
|
||||||
|
<UseAppBundle Value="False"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="callight_pkg"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="RunTimeTypeInfoControls"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="3">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="testCalLite.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="umaintestcallite.pp"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="uMainTestCalLite"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="calendarlite.pp"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="CalendarLite"/>
|
||||||
|
</Unit2>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="testCalLite"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<CodeGeneration>
|
||||||
|
<Checks>
|
||||||
|
<IOChecks Value="True"/>
|
||||||
|
<RangeChecks Value="True"/>
|
||||||
|
<OverflowChecks Value="True"/>
|
||||||
|
<StackChecks Value="True"/>
|
||||||
|
</Checks>
|
||||||
|
</CodeGeneration>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf2Set"/>
|
||||||
|
<UseExternalDbgSyms Value="True"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
16
components/callite/demo2/testCalLite.lpr
Normal file
16
components/callite/demo2/testCalLite.lpr
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
program testCalLite;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Interfaces, Forms, uMainTestCalLite;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource := True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
177
components/callite/demo2/umaintestcallite.lfm
Normal file
177
components/callite/demo2/umaintestcallite.lfm
Normal file
@ -0,0 +1,177 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 536
|
||||||
|
Height = 845
|
||||||
|
Top = 72
|
||||||
|
Width = 648
|
||||||
|
Caption = 'Examples of the TCalendaLite component'
|
||||||
|
ClientHeight = 845
|
||||||
|
ClientWidth = 648
|
||||||
|
Color = clWindow
|
||||||
|
Font.CharSet = ANSI_CHARSET
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnResize = FormResize
|
||||||
|
LCLVersion = '1.7'
|
||||||
|
object PSettings: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 376
|
||||||
|
Top = 0
|
||||||
|
Width = 648
|
||||||
|
Align = alTop
|
||||||
|
ClientHeight = 376
|
||||||
|
ClientWidth = 648
|
||||||
|
TabOrder = 0
|
||||||
|
object cgOptions: TCheckGroup
|
||||||
|
Left = 24
|
||||||
|
Height = 296
|
||||||
|
Top = 40
|
||||||
|
Width = 185
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Set calendar Options'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 276
|
||||||
|
ClientWidth = 181
|
||||||
|
Items.Strings = (
|
||||||
|
'coBoldDayNames'
|
||||||
|
'coBoldHolidays'
|
||||||
|
'coBoldToday'
|
||||||
|
'coBoldTopRow'
|
||||||
|
'coBoldWeekend'
|
||||||
|
'coDayLine'
|
||||||
|
'coShowBorder'
|
||||||
|
'coShowHolidays'
|
||||||
|
'coShowTodayFrame'
|
||||||
|
'coShowTodayName'
|
||||||
|
'coShowTodayRow'
|
||||||
|
'coShowWeekend'
|
||||||
|
'coUseTopRowColors'
|
||||||
|
)
|
||||||
|
OnItemClick = cgOptionsItemClick
|
||||||
|
TabOrder = 0
|
||||||
|
Data = {
|
||||||
|
0D00000002020202020202020202020202
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object cbUseHolidays: TCheckBox
|
||||||
|
Left = 239
|
||||||
|
Height = 19
|
||||||
|
Top = 40
|
||||||
|
Width = 169
|
||||||
|
Caption = 'Ignore OnGetHolidays event'
|
||||||
|
OnChange = cbUseHolidaysChange
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object LTitle: TLabel
|
||||||
|
Left = 28
|
||||||
|
Height = 15
|
||||||
|
Top = 8
|
||||||
|
Width = 318
|
||||||
|
Caption = 'Various calendar property settings can be changed below:'
|
||||||
|
Font.CharSet = ANSI_CHARSET
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object LWidth: TLabel
|
||||||
|
Left = 239
|
||||||
|
Height = 15
|
||||||
|
Top = 81
|
||||||
|
Width = 32
|
||||||
|
Caption = 'Width'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object seWidth: TSpinEdit
|
||||||
|
Left = 296
|
||||||
|
Height = 23
|
||||||
|
Top = 79
|
||||||
|
Width = 66
|
||||||
|
MaxValue = 430
|
||||||
|
MinValue = 120
|
||||||
|
OnChange = seWidthChange
|
||||||
|
TabOrder = 2
|
||||||
|
Value = 300
|
||||||
|
end
|
||||||
|
object seHeight: TSpinEdit
|
||||||
|
Left = 296
|
||||||
|
Height = 23
|
||||||
|
Top = 112
|
||||||
|
Width = 66
|
||||||
|
MaxValue = 250
|
||||||
|
MinValue = 120
|
||||||
|
OnChange = seHeightChange
|
||||||
|
TabOrder = 3
|
||||||
|
Value = 200
|
||||||
|
end
|
||||||
|
object lHeight: TLabel
|
||||||
|
Left = 239
|
||||||
|
Height = 15
|
||||||
|
Top = 112
|
||||||
|
Width = 36
|
||||||
|
Caption = 'Height'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object rgLanguage: TRadioGroup
|
||||||
|
Left = 239
|
||||||
|
Height = 160
|
||||||
|
Top = 176
|
||||||
|
Width = 180
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Language to use'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 140
|
||||||
|
ClientWidth = 176
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'English (default)'
|
||||||
|
'French'
|
||||||
|
'German'
|
||||||
|
'Hebrew'
|
||||||
|
'Spanish'
|
||||||
|
)
|
||||||
|
OnClick = rgLanguageClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object rgStartingDOW: TRadioGroup
|
||||||
|
Left = 440
|
||||||
|
Height = 192
|
||||||
|
Top = 40
|
||||||
|
Width = 176
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Starting day of the week'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 172
|
||||||
|
ClientWidth = 172
|
||||||
|
Items.Strings = (
|
||||||
|
'Sunday'
|
||||||
|
'Monday'
|
||||||
|
'Tuesday'
|
||||||
|
'Wednesday'
|
||||||
|
'Thursday'
|
||||||
|
'Friday'
|
||||||
|
'Saturday'
|
||||||
|
)
|
||||||
|
OnClick = rgStartingDOWClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
231
components/callite/demo2/umaintestcallite.pp
Normal file
231
components/callite/demo2/umaintestcallite.pp
Normal file
@ -0,0 +1,231 @@
|
|||||||
|
unit uMainTestCalLite;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Graphics, ExtCtrls, StdCtrls, Spin, CalendarLite;
|
||||||
|
// Easysize;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
cbUseHolidays: TCheckBox;
|
||||||
|
cgOptions: TCheckGroup;
|
||||||
|
//FormResizer1: TFormResizer;
|
||||||
|
LTitle: TLabel;
|
||||||
|
LWidth: TLabel;
|
||||||
|
lHeight: TLabel;
|
||||||
|
PSettings: TPanel;
|
||||||
|
rgLanguage: TRadioGroup;
|
||||||
|
rgStartingDOW: TRadioGroup;
|
||||||
|
seWidth: TSpinEdit;
|
||||||
|
seHeight: TSpinEdit;
|
||||||
|
procedure cbUseHolidaysChange(Sender: TObject);
|
||||||
|
procedure cgOptionsItemClick(Sender: TObject; Index: integer);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormResize(Sender: TObject);
|
||||||
|
procedure rgLanguageClick(Sender: TObject);
|
||||||
|
procedure rgStartingDOWClick(Sender: TObject);
|
||||||
|
procedure seHeightChange(Sender: TObject);
|
||||||
|
procedure seWidthChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
copyCal, demoCal: TCalendarLite;
|
||||||
|
FnoHolidays: boolean;
|
||||||
|
procedure RespondToDateChange(Sender: tObject);
|
||||||
|
procedure GetHolidays(Sender: TObject; AMonth, AYear: Integer; // wp
|
||||||
|
var Holidays: THolidays);
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
function Easter(year:integer) : TDateTime; // wp
|
||||||
|
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 above 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.FormCreate(Sender: TObject);
|
||||||
|
var opt: TCalOption;
|
||||||
|
begin
|
||||||
|
// FormResizer1.InitializeForm;
|
||||||
|
demoCal:= TCalendarLite.Create(Self);
|
||||||
|
demoCal.Parent:= Self;
|
||||||
|
demoCal.Left:= 10;
|
||||||
|
demoCal.Top:= PSettings.Height + 10;
|
||||||
|
demoCal.Width := seWidth.Value;
|
||||||
|
demoCal.Height := seHeight.Value;
|
||||||
|
demoCal.OnGetHolidays := @GetHolidays;
|
||||||
|
demoCal.OnDateChange:= @RespondToDateChange;
|
||||||
|
FNoHolidays:= False;
|
||||||
|
for opt in demoCal.Options do
|
||||||
|
if (opt in demoCal.Options) then cgOptions.Checked[integer(opt)] := True;
|
||||||
|
seHeight.Value := demoCal.Height;
|
||||||
|
seWidth.Value:= demoCal.Width;
|
||||||
|
rgStartingDOW.ItemIndex:= integer(demoCal.StartingDayOfWeek)-1;
|
||||||
|
|
||||||
|
copyCal:= TCalendarLite.Create(Self);
|
||||||
|
copyCal.Parent := Self;
|
||||||
|
copyCal.Width := 270;
|
||||||
|
copyCal.Height := 205;
|
||||||
|
copyCal.Left := Width - copyCal.Width;
|
||||||
|
copyCal.Top := Height - copyCal.Height;
|
||||||
|
copyCal.Font.Name := 'Lucida Calligraphy';
|
||||||
|
copyCal.Colors.SelectedDateColor := clYellow;
|
||||||
|
copyCal.Colors.ArrowBorderColor := clYellow;
|
||||||
|
copyCal.Colors.ArrowColor := clYellow;
|
||||||
|
copyCal.Colors.TodayFrameColor := clWhite;
|
||||||
|
copyCal.Colors.BackgroundColor:= clGradientActiveCaption;
|
||||||
|
copyCal.StartingDayOfWeek:= dowSaturday;
|
||||||
|
copyCal.OnGetHolidays := @GetHolidays;
|
||||||
|
copyCal.Options := copyCal.Options + [coShowBorder,coUseTopRowColors,coDayLine];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormResize(Sender: TObject);
|
||||||
|
begin
|
||||||
|
// FormResizer1.ResizeAll;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.rgLanguageClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case rgLanguage.ItemIndex of
|
||||||
|
0: demoCal.Languages := lgEnglish;
|
||||||
|
1: demoCal.Languages := lgFrench;
|
||||||
|
2: demoCal.Languages := lgGerman;
|
||||||
|
3: demoCal.Languages := lgHebrew;
|
||||||
|
4: demoCal.Languages := lgSpanish;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
|
case rgLanguage.ItemIndex of
|
||||||
|
0: begin
|
||||||
|
demoCal.DayNames := EnglishDays;
|
||||||
|
demoCal.MonthNames := EnglishMonths;
|
||||||
|
demoCal.DisplayTexts := DefaultDisplayText;
|
||||||
|
demoCal.BiDiMode:= bdLeftToRight;
|
||||||
|
end;
|
||||||
|
1: begin
|
||||||
|
demoCal.DayNames := FrenchDays;
|
||||||
|
demoCal.MonthNames := FrenchMonths;
|
||||||
|
demoCal.DisplayTexts := FrenchTexts;
|
||||||
|
demoCal.BiDiMode:= bdLeftToRight;
|
||||||
|
end;
|
||||||
|
2: begin
|
||||||
|
demoCal.DayNames := GermanDays;
|
||||||
|
demoCal.MonthNames := GermanMonths;
|
||||||
|
demoCal.DisplayTexts := GermamTexts;
|
||||||
|
demoCal.BiDiMode:= bdLeftToRight;
|
||||||
|
end;
|
||||||
|
3: begin
|
||||||
|
demoCal.DayNames := HebrewDays;
|
||||||
|
demoCal.MonthNames := HebrewMonths;
|
||||||
|
demoCal.DisplayTexts := HebrewTexts;
|
||||||
|
demoCal.BiDiMode:= bdRightToLeft;
|
||||||
|
end;
|
||||||
|
4: begin
|
||||||
|
demoCal.DayNames := SpanishDays;
|
||||||
|
demoCal.MonthNames := SpanishMonths;
|
||||||
|
demoCal.DisplayTexts := SpanishTexts;
|
||||||
|
demoCal.BiDiMode:= bdLeftToRight;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.rgStartingDOWClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
demoCal.StartingDayOfWeek := TDayOfWeek(rgStartingDOW.ItemIndex + 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seHeightChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
demoCal.Height := seHeight.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seWidthChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
demoCal.Width := seWidth.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbUseHolidaysChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FnoHolidays := not FnoHolidays;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cgOptionsItemClick(Sender: TObject; Index: integer);
|
||||||
|
var opt: TCalOption;
|
||||||
|
begin
|
||||||
|
opt := TCalOption(Index);
|
||||||
|
if (opt in demoCal.Options) then
|
||||||
|
demoCal.Options := demoCal.Options - [opt]
|
||||||
|
else demoCal.Options := demoCal.Options + [opt];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.RespondToDateChange(Sender: tObject);
|
||||||
|
begin
|
||||||
|
copyCal.Date:= TCalendarLite(Sender).Date;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// wp
|
||||||
|
procedure TForm1.GetHolidays(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); // New Year
|
||||||
|
12: AddHoliday(25, Holidays); // Christmas
|
||||||
|
end;
|
||||||
|
// Easter
|
||||||
|
e := Easter(AYear);
|
||||||
|
DecodeDate(e, y,m,d);
|
||||||
|
if m = AMonth then
|
||||||
|
AddHoliday(d, Holidays);
|
||||||
|
// Whit Sunday --> 49 days after easter
|
||||||
|
DecodeDate(e+49, y,m,d);
|
||||||
|
if m = AMonth then
|
||||||
|
AddHoliday(d, Holidays);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
BIN
components/callite/icon/TCALENDARLITE.PNG
Normal file
BIN
components/callite/icon/TCALENDARLITE.PNG
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 886 B |
5
components/callite/icon/icon-source.txt
Normal file
5
components/callite/icon/icon-source.txt
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
The TCalendarLite palette icon is the image
|
||||||
|
|
||||||
|
calendar-day.png
|
||||||
|
|
||||||
|
of the Fugue Icons collection (http://p.yusukekamiyamane.com/)
|
||||||
1
components/callite/icon/make_lrs.bat
Normal file
1
components/callite/icon/make_lrs.bat
Normal file
@ -0,0 +1 @@
|
|||||||
|
lazres ..\source\calendarlite_icon.lrs TCALENDARLITE.PNG
|
||||||
1295
components/callite/source/calendarlite.pas
Normal file
1295
components/callite/source/calendarlite.pas
Normal file
File diff suppressed because it is too large
Load Diff
38
components/callite/source/calendarlite_icon.lrs
Normal file
38
components/callite/source/calendarlite_icon.lrs
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
LazarusResources.Add('TCALENDARLITE','PNG',[
|
||||||
|
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#8#6#0#0#0#224'w='#248#0
|
||||||
|
+#0#0#25'tEXtSoftware'#0'Adobe ImageReadyq'#201'e<'#0#0#3#24'IDATx'#218#172'U'
|
||||||
|
+'KK'#28'A'#16#174#158#153'}*q#j'#2#1#215#131#202#198#24'1'#174'$'#168#172#186
|
||||||
|
+#130#130#134'<'#14#130'7'#227'_'#200#31'0D'#127#129#7'!'#162' '#30#19#246#226
|
||||||
|
+'EC'#14'*('#132#8#10'9'#172'&'#172'b'#212#5'C'#18#15'Q'#216#247'L'#167#186'f'
|
||||||
|
+'f'#179';>2'#129'-({'#218#234#250#190#170#174#234'Zv'#204#24'0'#0#210#143#168
|
||||||
|
+#195#156'?'#194'%'#128#250'%'#194#216#167#14#184'^'#174#242#225#134'2'#131
|
||||||
|
+#224'5~'#223#19#14#139#156#215#133'wv'#130#171'MM['#207#24#251#6'6'#228#10
|
||||||
|
+#159'('#18#188'RT}'#211#226#159#152'x'#14#185#28#244#174#172'@,'#22#131#222
|
||||||
|
+'P(x'#167#175'/h'#135#224#130#143#162#192#225#248#184',lJV?'#227#228#169#20
|
||||||
|
+#240'd'#18'~'#157#157#193#238#216#24#248'jkA;?'#183#131#127#193#135'y<'#128
|
||||||
|
+#184'N"H'#235'g'#28'<'#147#129#28#234#131#246'vhhh'#128#242#138#10#218#219#17
|
||||||
|
+#171#143'"'#203#128#184#14#157#128's'#202'@'#195#12'T'#212#242#217'Yp..B*'#28
|
||||||
|
+#134#228#242'2'#252#238#236#132#234#201#201'k'#9#20#172#163#207#231#163'o'
|
||||||
|
+#129'!'#225#30'q'#245#12#140#24#157#154#145#193#225#208#16'x'#203#202' 13C'
|
||||||
|
+#171#182#176#0#185#154#26#248#31#145'1'#131#140'yEF'#13#20'qE'#130#228#166#17
|
||||||
|
+#137#171'`'#213'l^'#149')'#28#9#16'W'#161'M@'#215#151#188#196'"0'#3#20#185'N'
|
||||||
|
+'*'#209#195#224#28'J!'#12'k'#128'H'#18']'#141#241'?ICpM'#211'JB I'#132#173#19
|
||||||
|
+#24'1'#203#130'@-'#200' vp'#0#239#215#214#232'['#216':'#218#218#224'ak+'#237
|
||||||
|
+#227''''''#16'YZ"'#160#254'P'#8#238#214#215'['#138#192'E'#6'r'#158#197#204'@'
|
||||||
|
+#197#12'L'#189'UU'#5'O'#7#6#224#197#240'0'#212#215#213#193#250#230'f'#222'V'
|
||||||
|
+#230#245'B'#127'w7'#164#211'i|'#252#185'"?'#161#154#30'hQ'#6#146#136'>'#167
|
||||||
|
+#170#249' \n7'#220'F5#r9'#157'y'#187#23#9#170'++!'#133'='#159'E'#130'B?'#170
|
||||||
|
+#1'fv'#161#6'D`'#169#193#225#241'1|'#221#219#131#207#209'('#140#142#140#20
|
||||||
|
+#217#179#8#154''''#176#248'I'#5#25'H'#198'X'#149#173'W$'#244#231#233')'#196
|
||||||
|
+#246#247#225#28#231#203#135#213'U'#2'3m"'#234'$'#206#174'L6{'#233#21#9'L'#254
|
||||||
|
+#175#12#238'77'#147#30#197#227#240'fn'#14'Z'#240';'#208#216'H6A'#144'H$'#136
|
||||||
|
+#192#234#167'\R'#3'Y3'#162#186'LD!E'#180#162'k'#196#153#173#237'm'#152#157
|
||||||
|
+#159''''#219'4'#142#148'''8^'#30#15#14#230#207#11','#179#139#138'2P-'#145'd1'
|
||||||
|
+#186#232#238'.,'#225#208#11#247#244#128#223#239#167'3'#173#216#174#211'SSEg'
|
||||||
|
+#11'}'#213#162#12#24#163#166#209','#4#235#27#27#240'.'#18#161#150#28#194#232
|
||||||
|
+#186#177#223'U'#155#15#145'j'#192#152#139#8#12#23#143#246#151#153#164#179#171
|
||||||
|
+#139#212#18#149'='#2']=D'#240#29#255#224'0'#246'8'#28#14#26#207#165#16#129'%'
|
||||||
|
+#8'~'#8#130#20#231#190'$c'#241#160#219#253#22'J('#248#139'v'#132#216'7D'#1
|
||||||
|
+#196's'#245#24'++'#17#190'h'#199#164#224#249'#'#192#0'`'#167'&'#202'X'#24#179
|
||||||
|
+#213#0#0#0#0'IEND'#174'B`'#130
|
||||||
|
]);
|
||||||
Reference in New Issue
Block a user