pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Activate TDate and TTime property editors in JvTimeFramework components

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7114 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-09 23:50:05 +00:00
parent e3d87ffab7
commit 23a82fa5b8
3 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/design/JvTimeFramework/jvtimeframeworkreg.pas
View File

@ -31,6 +31,12 @@ begin
// deleted, or moved at design time... BAD THINGS HAPPEN // deleted, or moved at design time... BAD THINGS HAPPEN
RegisterPropertyEditor(TypeInfo(TJvTFGlanceCells), TJvTFMonths, 'Cells', nil); RegisterPropertyEditor(TypeInfo(TJvTFGlanceCells), TJvTFMonths, 'Cells', nil);
// The LCL TTime property editor is not installed by default.
RegisterPropertyEditor(TypeInfo(TTime), TJvTFDaysPrimeTime, '', TTimePropertyEditor);
RegisterPropertyEditor(TypeInfo(TDate), TJvTFDaysTemplate, '', TDatePropertyEditor);
RegisterPropertyEditor(TypeInfo(TDate), TJvTFWeeks, 'DisplayDate', TDatePropertyEditor);
RegisterPropertyEditor(TypeInfo(TDate), TJvTFMonths, 'DisplayDate', TDatePropertyEditor);
(* (*
// RegisterPropertyEditor(TypeInfo(string), TJvTFControl, 'Version', TutfVersionEditor); // RegisterPropertyEditor(TypeInfo(string), TJvTFControl, 'Version', TutfVersionEditor);
// RegisterPropertyEditor(TypeInfo(string), TJvTFScheduleManager, 'Version', TutfVersionEditor); // RegisterPropertyEditor(TypeInfo(string), TJvTFScheduleManager, 'Version', TutfVersionEditor);

11
components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
View File

@ -37,12 +37,7 @@ object MainForm: TMainForm
Width = 469 Width = 469
ScheduleManager = utfScheduleManager1 ScheduleManager = utfScheduleManager1
ColHdrHeight = 30 ColHdrHeight = 30
Cols = < Cols = <>
item
SchedDate = 0
Title = ' - '
Width = 402
end>
Template.CompDate = 36406 Template.CompDate = 36406
Template.LinearDayCount = 1 Template.LinearDayCount = 1
Template.LinearEndDate = 36406 Template.LinearEndDate = 36406
@ -68,6 +63,7 @@ object MainForm: TMainForm
HdrAttr.ParentFont = False HdrAttr.ParentFont = False
HdrAttr.FrameColor = clBlack HdrAttr.FrameColor = clBlack
SelHdrAttr.Font.Color = clBlack SelHdrAttr.Font.Color = clBlack
SelHdrAttr.Font.Style = [fsBold]
SelHdrAttr.ParentFont = False SelHdrAttr.ParentFont = False
SelHdrAttr.FrameColor = clBlack SelHdrAttr.FrameColor = clBlack
FancyRowHdrAttr.Hr2400 = False FancyRowHdrAttr.Hr2400 = False
@ -79,6 +75,7 @@ object MainForm: TMainForm
SelFancyRowHdrAttr.MajorFont.Color = clBlack SelFancyRowHdrAttr.MajorFont.Color = clBlack
SelFancyRowHdrAttr.MajorFont.Height = -21 SelFancyRowHdrAttr.MajorFont.Height = -21
SelFancyRowHdrAttr.TickColor = clBlack SelFancyRowHdrAttr.TickColor = clBlack
GridLineColor = clSilver
PrimeTime.StartTime = 0.333333333333333 PrimeTime.StartTime = 0.333333333333333
PrimeTime.EndTime = 0.708333333333333 PrimeTime.EndTime = 0.708333333333333
GroupHdrAttr.Color = clWindow GroupHdrAttr.Color = clWindow
@ -90,7 +87,7 @@ object MainForm: TMainForm
SelGroupHdrAttr.Font.Color = clBlack SelGroupHdrAttr.Font.Color = clBlack
SelGroupHdrAttr.ParentFont = False SelGroupHdrAttr.ParentFont = False
SelGroupHdrAttr.FrameColor = clBlack SelGroupHdrAttr.FrameColor = clBlack
LeftCol = 0 LeftCol = -1
OnDateChanging = JvTFDays1DateChanging OnDateChanging = JvTFDays1DateChanging
OnDateChanged = JvTFDays1DateChanged OnDateChanged = JvTFDays1DateChanged
OnGranularityChanged = JvTFDays1GranularityChanged OnGranularityChanged = JvTFDays1GranularityChanged

9
components/jvcllaz/examples/JvTimeFramework/tfshare.lfm
View File

@ -2,12 +2,13 @@ object Share: TShare
Left = 672 Left = 672
Height = 216 Height = 216
Top = 110 Top = 110
Width = 271 Width = 250
AutoSize = True AutoSize = True
Caption = 'Share' Caption = 'Share'
ClientHeight = 216 ClientHeight = 216
ClientWidth = 271 ClientWidth = 250
Color = clBtnFace Color = clBtnFace
Constraints.MinWidth = 250
Font.Color = clWindowText Font.Color = clWindowText
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
@ -18,7 +19,7 @@ object Share: TShare
Left = 8 Left = 8
Height = 160 Height = 160
Top = 8 Top = 8
Width = 255 Width = 234
Align = alClient Align = alClient
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 8 BorderSpacing.Around = 8
@ -30,7 +31,7 @@ object Share: TShare
Left = 6 Left = 6
Height = 34 Height = 34
Top = 176 Top = 176
Width = 259 Width = 238
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'