You've already forked lazarus-ccr
tvplanit: Add demo for TVpCalendar.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8451 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
86
components/tvplanit/examples/calendar/VpCalendarDemo.lpi
Normal file
86
components/tvplanit/examples/calendar/VpCalendarDemo.lpi
Normal file
@@ -0,0 +1,86 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="VpCalendarDemo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes>
|
||||||
|
<Item Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="laz_visualplanit_design"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="laz_visualplanit"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="VpCalendarDemo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="VpCalendarDemo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
25
components/tvplanit/examples/calendar/VpCalendarDemo.lpr
Normal file
25
components/tvplanit/examples/calendar/VpCalendarDemo.lpr
Normal file
@@ -0,0 +1,25 @@
|
|||||||
|
program VpCalendarDemo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF HASAMIGA}
|
||||||
|
athreads,
|
||||||
|
{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
404
components/tvplanit/examples/calendar/main.lfm
Normal file
404
components/tvplanit/examples/calendar/main.lfm
Normal file
@@ -0,0 +1,404 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 327
|
||||||
|
Height = 607
|
||||||
|
Top = 130
|
||||||
|
Width = 565
|
||||||
|
Caption = 'Form1'
|
||||||
|
ClientHeight = 607
|
||||||
|
ClientWidth = 565
|
||||||
|
OnCreate = FormCreate
|
||||||
|
object VpCalendar1: TVpCalendar
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = Owner
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = Bevel1
|
||||||
|
Left = 128
|
||||||
|
Height = 319
|
||||||
|
Top = 8
|
||||||
|
Width = 309
|
||||||
|
DataStore = VpIniDatastore1
|
||||||
|
ControlLink = VpControlLink1
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Left = 120
|
||||||
|
BorderSpacing.Right = 120
|
||||||
|
BorderSpacing.Around = 8
|
||||||
|
Colors.ActiveDay = clWindow
|
||||||
|
Colors.ActiveDayBorder = clWindowText
|
||||||
|
Colors.ActiveDayText = clWindowText
|
||||||
|
Colors.Background = clDefault
|
||||||
|
Colors.ColorScheme = cscalCustom
|
||||||
|
Colors.DayNames = clWindowText
|
||||||
|
Colors.Days = clWindowText
|
||||||
|
Colors.InactiveDays = clWindowText
|
||||||
|
Colors.MonthAndYear = clWindowText
|
||||||
|
Colors.Weekend = clWindowText
|
||||||
|
Colors.EventDays = clWindowText
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = True
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideBottom.Control = Owner
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 8
|
||||||
|
Height = 250
|
||||||
|
Top = 349
|
||||||
|
Width = 548
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 8
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ClientHeight = 250
|
||||||
|
ClientWidth = 548
|
||||||
|
TabOrder = 1
|
||||||
|
object cbActiveDayColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = rgColorScheme
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = Panel1
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 0
|
||||||
|
Width = 139
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Active day'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbActiveDayColorColorChanged
|
||||||
|
end
|
||||||
|
object cgOptions: TCheckGroup
|
||||||
|
AnchorSideLeft.Control = Panel1
|
||||||
|
AnchorSideTop.Control = Panel1
|
||||||
|
Left = 0
|
||||||
|
Height = 165
|
||||||
|
Top = 0
|
||||||
|
Width = 257
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Options'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 2
|
||||||
|
ClientHeight = 145
|
||||||
|
ClientWidth = 253
|
||||||
|
Columns = 2
|
||||||
|
Items.Strings = (
|
||||||
|
'cdoShortNames'
|
||||||
|
'cdoShowYear'
|
||||||
|
'cdoShowInactive'
|
||||||
|
'cdoShowRevert'
|
||||||
|
'cdoShowToday'
|
||||||
|
'cdoShowNavBtns'
|
||||||
|
'cdoHideActive'
|
||||||
|
'cdoHighlightSat'
|
||||||
|
'cdoHighlightSun'
|
||||||
|
)
|
||||||
|
OnItemClick = cgOptionsItemClick
|
||||||
|
TabOrder = 0
|
||||||
|
Data = {
|
||||||
|
09000000020202020202020202
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object rgColorScheme: TRadioGroup
|
||||||
|
AnchorSideLeft.Control = cgOptions
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = Panel1
|
||||||
|
Left = 273
|
||||||
|
Height = 200
|
||||||
|
Top = 0
|
||||||
|
Width = 120
|
||||||
|
AutoFill = True
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
Caption = 'Color Scheme'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 180
|
||||||
|
ClientWidth = 116
|
||||||
|
Items.Strings = (
|
||||||
|
'cscalCustom'
|
||||||
|
'cscalClassic'
|
||||||
|
'cscalWindows'
|
||||||
|
'cscalGold'
|
||||||
|
'cscalOcean'
|
||||||
|
'cscalRose'
|
||||||
|
)
|
||||||
|
OnClick = rgColorSchemeClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object cbDayNamesColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Control = cbActiveDayTextColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 75
|
||||||
|
Width = 139
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Day names'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbDayNamesColorColorChanged
|
||||||
|
end
|
||||||
|
object cbDaysColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Control = cbDayNamesColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 100
|
||||||
|
Width = 139
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Days'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbDaysColorColorChanged
|
||||||
|
end
|
||||||
|
object cbInactiveDaysColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Control = cbDaysColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 125
|
||||||
|
Width = 139
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Inactive days'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbInactiveDaysColorColorChanged
|
||||||
|
end
|
||||||
|
object cbMonthAndYearColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Control = cbInactiveDaysColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 150
|
||||||
|
Width = 139
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Month and year'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbMonthAndYearColorColorChanged
|
||||||
|
end
|
||||||
|
object cbWeekendColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Control = cbMonthAndYearColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 175
|
||||||
|
Width = 139
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Weekend'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbWeekendColorColorChanged
|
||||||
|
end
|
||||||
|
object cbEventDaysColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Control = cbWeekendColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 200
|
||||||
|
Width = 139
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Event days'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbEventDaysColorColorChanged
|
||||||
|
end
|
||||||
|
object cbBackgroundColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Control = cbEventDaysColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 225
|
||||||
|
Width = 139
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Background'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbBackgroundColorColorChanged
|
||||||
|
end
|
||||||
|
object cbBorder: TCheckBox
|
||||||
|
AnchorSideLeft.Control = Panel1
|
||||||
|
AnchorSideTop.Control = cgOptions
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 0
|
||||||
|
Height = 19
|
||||||
|
Top = 173
|
||||||
|
Width = 53
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Border'
|
||||||
|
OnChange = cbBorderChange
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object lblDayNameWidth: TLabel
|
||||||
|
AnchorSideLeft.Control = Panel1
|
||||||
|
AnchorSideTop.Control = seDayNameWidth
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 0
|
||||||
|
Height = 15
|
||||||
|
Top = 204
|
||||||
|
Width = 90
|
||||||
|
Caption = 'Date name width'
|
||||||
|
end
|
||||||
|
object seDayNameWidth: TSpinEdit
|
||||||
|
AnchorSideLeft.Control = lblDayNameWidth
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbBorder
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 106
|
||||||
|
Height = 23
|
||||||
|
Top = 200
|
||||||
|
Width = 108
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
MaxValue = 999
|
||||||
|
OnChange = seDayNameWidthChange
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object lblWeekStarts: TLabel
|
||||||
|
AnchorSideLeft.Control = lblDayNameWidth
|
||||||
|
AnchorSideTop.Control = cbWeekStarts
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 0
|
||||||
|
Height = 15
|
||||||
|
Top = 231
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Week starts on'
|
||||||
|
end
|
||||||
|
object cbWeekStarts: TComboBox
|
||||||
|
AnchorSideLeft.Control = seDayNameWidth
|
||||||
|
AnchorSideTop.Control = seDayNameWidth
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 106
|
||||||
|
Height = 23
|
||||||
|
Top = 227
|
||||||
|
Width = 106
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
ItemHeight = 15
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'dtSunday'
|
||||||
|
'dtMonday'
|
||||||
|
'dtTuesday'
|
||||||
|
'dtWednesday'
|
||||||
|
'dtThursday'
|
||||||
|
'dtFriday'
|
||||||
|
'dtSaturday'
|
||||||
|
)
|
||||||
|
OnChange = cbWeekStartsChange
|
||||||
|
TabOrder = 4
|
||||||
|
Text = 'dtSunday'
|
||||||
|
end
|
||||||
|
object cbActiveDayBorderColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = rgColorScheme
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbActiveDayColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 25
|
||||||
|
Width = 139
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Active day border'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbActiveDayBorderColorColorChanged
|
||||||
|
end
|
||||||
|
object cbActiveDayTextColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = rgColorScheme
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbActiveDayBorderColor
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 409
|
||||||
|
Height = 25
|
||||||
|
Top = 50
|
||||||
|
Width = 139
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clSilver
|
||||||
|
Caption = 'Active day text'
|
||||||
|
Margin = 4
|
||||||
|
OnColorChanged = cbActiveDayTextColorColorChanged
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Bevel1: TBevel
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = Panel1
|
||||||
|
Left = 8
|
||||||
|
Height = 6
|
||||||
|
Top = 335
|
||||||
|
Width = 549
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
Shape = bsTopLine
|
||||||
|
end
|
||||||
|
object VpControlLink1: TVpControlLink
|
||||||
|
DataStore = VpIniDatastore1
|
||||||
|
Printer.DayStart = h_08
|
||||||
|
Printer.DayEnd = h_05
|
||||||
|
Printer.Granularity = gr30Min
|
||||||
|
Printer.MarginUnits = imAbsolutePixel
|
||||||
|
Printer.PrintFormats = <>
|
||||||
|
Left = 40
|
||||||
|
Top = 72
|
||||||
|
end
|
||||||
|
object VpIniDatastore1: TVpIniDatastore
|
||||||
|
CategoryColorMap.Category0.Description = 'Category 0'
|
||||||
|
CategoryColorMap.Category1.Description = 'Category 1'
|
||||||
|
CategoryColorMap.Category2.Description = 'Category 2'
|
||||||
|
CategoryColorMap.Category3.Description = 'Category 3'
|
||||||
|
CategoryColorMap.Category4.Description = 'Category 4'
|
||||||
|
CategoryColorMap.Category5.Description = 'Category 5'
|
||||||
|
CategoryColorMap.Category6.Description = 'Category 6'
|
||||||
|
CategoryColorMap.Category7.Description = 'Category 7'
|
||||||
|
CategoryColorMap.Category8.Description = 'Category 8'
|
||||||
|
CategoryColorMap.Category9.Description = 'Category 9'
|
||||||
|
HiddenCategories.BackgroundColor = clSilver
|
||||||
|
HiddenCategories.Color = clGray
|
||||||
|
AutoConnect = True
|
||||||
|
FileName = 'data.ini'
|
||||||
|
Left = 40
|
||||||
|
Top = 176
|
||||||
|
end
|
||||||
|
end
|
||||||
185
components/tvplanit/examples/calendar/main.pas
Normal file
185
components/tvplanit/examples/calendar/main.pas
Normal file
@@ -0,0 +1,185 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
|
||||||
|
Spin,
|
||||||
|
VpBaseDS, VpMisc, VpIniDs, VpContactGrid, VpCalendar;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
Bevel1: TBevel;
|
||||||
|
cbActiveDayBorderColor: TColorButton;
|
||||||
|
cbActiveDayTextColor: TColorButton;
|
||||||
|
cbDayNamesColor: TColorButton;
|
||||||
|
cbDaysColor: TColorButton;
|
||||||
|
cbBackgroundColor: TColorButton;
|
||||||
|
cbInactiveDaysColor: TColorButton;
|
||||||
|
cbMonthAndYearColor: TColorButton;
|
||||||
|
cbWeekendColor: TColorButton;
|
||||||
|
cbEventDaysColor: TColorButton;
|
||||||
|
cbBorder: TCheckBox;
|
||||||
|
cbActiveDayColor: TColorButton;
|
||||||
|
cgOptions: TCheckGroup;
|
||||||
|
cbWeekStarts: TComboBox;
|
||||||
|
lblWeekStarts: TLabel;
|
||||||
|
lblDayNameWidth: TLabel;
|
||||||
|
Panel1: TPanel;
|
||||||
|
rgColorScheme: TRadioGroup;
|
||||||
|
seDayNameWidth: TSpinEdit;
|
||||||
|
VpCalendar1: TVpCalendar;
|
||||||
|
VpControlLink1: TVpControlLink;
|
||||||
|
VpIniDatastore1: TVpIniDatastore;
|
||||||
|
procedure cbActiveDayBorderColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbActiveDayTextColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbBackgroundColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbDayNamesColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbDaysColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbInactiveDaysColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbMonthAndYearColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbEventDaysColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbWeekendColorColorChanged(Sender: TObject);
|
||||||
|
procedure cbWeekStartsChange(Sender: TObject);
|
||||||
|
procedure cgOptionsItemClick(Sender: TObject; Index: integer);
|
||||||
|
procedure cbBorderChange(Sender: TObject);
|
||||||
|
procedure cbActiveDayColorColorChanged(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure rgColorSchemeClick(Sender: TObject);
|
||||||
|
procedure seDayNameWidthChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
VpBase;
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
option: TVpCalDisplayOption;
|
||||||
|
begin
|
||||||
|
if VpIniDatastore1.Resources.Count > 0 then
|
||||||
|
VpIniDatastore1.Resource := VpIniDatastore1.Resources.Items[0];
|
||||||
|
|
||||||
|
for option in TVpCalDisplayOption do
|
||||||
|
cgOptions.Checked[ord(option)] := option in VpCalendar1.Options;
|
||||||
|
|
||||||
|
rgColorScheme.ItemIndex := ord(VpCalendar1.Colors.ColorScheme);
|
||||||
|
seDayNameWidth.Value := VpCalendar1.DayNameWidth;
|
||||||
|
cbWeekStarts.ItemIndex := ord(VpCalendar1.WeekStarts);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.rgColorSchemeClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.ColorScheme := TVpCalColorScheme(rgColorScheme.ItemIndex);
|
||||||
|
|
||||||
|
cbActiveDayColor.ButtonColor := VpCalendar1.Colors.ActiveDay;
|
||||||
|
cbActiveDayBorderColor.ButtonColor := VpCalendar1.Colors.ActiveDayBorder;
|
||||||
|
cbActiveDayTextColor.ButtonColor := VpCalendar1.Colors.ActiveDayText;
|
||||||
|
cbDayNamesColor.ButtonColor := VpCalendar1.Colors.DayNames;
|
||||||
|
cbDaysColor.ButtonColor := VpCalendar1.Colors.Days;
|
||||||
|
cbInactiveDaysColor.ButtonColor := VpCalendar1.Colors.InactiveDays;
|
||||||
|
cbMonthAndYearColor.ButtonColor := VpCalendar1.Colors.MonthAndYear;
|
||||||
|
cbEventDaysColor.ButtonColor := VpCalendar1.Colors.EventDays;
|
||||||
|
cbWeekendColor.ButtonColor := VpCalendar1.Colors.Weekend;
|
||||||
|
cbBackgroundColor.ButtonColor := VpCalendar1.Colors.Background;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.seDayNameWidthChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.DayNameWidth := seDayNameWidth.Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbBorderChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if cbBorder.Checked then
|
||||||
|
VpCalendar1.BorderStyle := bsSingle
|
||||||
|
else
|
||||||
|
VpCalendar1.BorderStyle := bsNone;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cgOptionsItemClick(Sender: TObject; Index: integer);
|
||||||
|
var
|
||||||
|
options: TVpCalDisplayOptions;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
options := [];
|
||||||
|
for i := 0 to cgOptions.Items.Count-1 do
|
||||||
|
if cgOptions.Checked[i] then
|
||||||
|
Include(options, TVpCalDisplayOption(i));
|
||||||
|
VpCalendar1.Options := options;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbActiveDayColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.ActiveDay := cbActiveDayColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbDayNamesColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.DayNames := cbDayNamesColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbBackgroundColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.Background := cbBackgroundColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbActiveDayBorderColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.ActiveDayBorder := cbActiveDayBorderColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbActiveDayTextColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.ActiveDayText := cbActiveDayTextColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbInactiveDaysColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.InactiveDays := cbInactiveDaysColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbMonthAndYearColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.MonthAndYear := cbMonthAndYearColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbEventDaysColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.EventDays := cbEventDaysColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbDaysColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.Days := cbDaysColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbWeekendColorColorChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.Colors.Weekend := cbWeekendColor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.cbWeekStartsChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VpCalendar1.WeekStarts := TVpDayType(cbWeekStarts.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Reference in New Issue
Block a user