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

tvplanit: some improvements in demos

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8473 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-11 19:52:29 +00:00
parent e80cd89ca7
commit bf1712ff85
2 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/tvplanit/examples/calendar/main.lfm
View File

@ -3,11 +3,10 @@ object Form1: TForm1
Height = 607 Height = 607
Top = 130 Top = 130
Width = 565 Width = 565
Caption = 'Form1' Caption = 'TvPlanIt Calendar Demo'
ClientHeight = 607 ClientHeight = 607
ClientWidth = 565 ClientWidth = 565
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object VpCalendar1: TVpCalendar object VpCalendar1: TVpCalendar
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -18,12 +17,14 @@ object Form1: TForm1
Height = 319 Height = 319
Top = 8 Top = 8
Width = 309 Width = 309
PopupMenu = VpCalendar1.default
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 120 BorderSpacing.Left = 120
BorderSpacing.Right = 120 BorderSpacing.Right = 120
BorderSpacing.Around = 8 BorderSpacing.Around = 8
BorderStyle = bsSingle
Colors.ActiveDay = clWindow Colors.ActiveDay = clWindow
Colors.ActiveDayBorder = clWindowText Colors.ActiveDayBorder = clWindowText
Colors.ActiveDayText = clWindowText Colors.ActiveDayText = clWindowText
@ -260,7 +261,9 @@ object Form1: TForm1
Width = 53 Width = 53
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Border' Caption = 'Border'
Checked = True
OnChange = cbBorderChange OnChange = cbBorderChange
State = cbChecked
TabOrder = 2 TabOrder = 2
end end
object lblDayNameWidth: TLabel object lblDayNameWidth: TLabel

34
components/tvplanit/examples/gadgets/unit1.lfm
View File

@ -1,15 +1,13 @@
object Form1: TForm1 object Form1: TForm1
Left = 320 Left = 320
Height = 311 Height = 292
Top = 160 Top = 160
Width = 473 Width = 457
AutoSize = True Caption = 'TvPlanit Gadgets demo'
Caption = 'Form1' ClientHeight = 292
ClientHeight = 311 ClientWidth = 457
ClientWidth = 473
Font.Color = clWindowText Font.Color = clWindowText
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.3.0.0'
object VpClock: TVpClock object VpClock: TVpClock
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
@ -53,16 +51,18 @@ object Form1: TForm1
object BtnStartStop: TButton object BtnStartStop: TButton
AnchorSideLeft.Control = RgClockMode AnchorSideLeft.Control = RgClockMode
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = RgClockMode AnchorSideBottom.Control = RgClockMode
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 342 Left = 342
Height = 25 Height = 25
Top = 203 Top = 190
Width = 98 Width = 80
Anchors = [akLeft] Anchors = [akLeft]
AutoSize = True
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Right = 16
Caption = 'Start' Caption = 'Start'
Constraints.MinWidth = 80
OnClick = BtnStartStopClick OnClick = BtnStartStopClick
TabOrder = 6 TabOrder = 6
end end
@ -107,6 +107,7 @@ object Form1: TForm1
BorderSpacing.Top = 16 BorderSpacing.Top = 16
BorderSpacing.Right = 16 BorderSpacing.Right = 16
Caption = 'Count-down time:' Caption = 'Count-down time:'
Color = clDefault
FocusControl = EdCountDownTime FocusControl = EdCountDownTime
ParentColor = False ParentColor = False
Visible = False Visible = False
@ -117,7 +118,7 @@ object Form1: TForm1
AnchorSideBottom.Control = BtnStartStop AnchorSideBottom.Control = BtnStartStop
Left = 342 Left = 342
Height = 19 Height = 19
Top = 172 Top = 159
Width = 98 Width = 98
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -138,6 +139,7 @@ object Form1: TForm1
BorderSpacing.Top = 16 BorderSpacing.Top = 16
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
Caption = 'Elapsed...' Caption = 'Elapsed...'
Color = clDefault
ParentColor = False ParentColor = False
end end
object RgDisplayMode: TRadioGroup object RgDisplayMode: TRadioGroup
@ -178,7 +180,7 @@ object Form1: TForm1
AnchorSideBottom.Control = BtnStartStop AnchorSideBottom.Control = BtnStartStop
Left = 342 Left = 342
Height = 19 Height = 19
Top = 172 Top = 159
Width = 85 Width = 85
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Top = 12 BorderSpacing.Top = 12
@ -233,15 +235,15 @@ object Form1: TForm1
AnchorSideLeft.Control = BtnStartStop AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = BtnStartStop AnchorSideTop.Control = BtnStartStop
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnStartStop
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 342 Left = 342
Height = 25 Height = 25
Top = 230 Top = 217
Width = 98 Width = 80
Anchors = [akTop, akLeft, akRight] AutoSize = True
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'Pause' Caption = 'Pause'
Constraints.MinWidth = 80
OnClick = BtnPauseResumeClick OnClick = BtnPauseResumeClick
TabOrder = 8 TabOrder = 8
Visible = False Visible = False