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

TvPlanIt: Update gadgets sample project with TVpClock.Hold property.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8223 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-22 22:56:02 +00:00
parent 94a03d681b
commit fd89462d0c
3 changed files with 88 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,26 +9,28 @@ object Form1: TForm1
ClientWidth = 473
Font.Color = clWindowText
OnShow = FormShow
LCLVersion = '2.1.0.0'
LCLVersion = '2.3.0.0'
object VpClock: TVpClock
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 0
Left = 8
Height = 200
Top = 78
Width = 200
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Active = False
Color = clForm
ClockMode = cmClock
DigitalOptions.MilitaryTime = False
DigitalOptions.MilitaryTime = True
DigitalOptions.OnColor = clLime
DigitalOptions.OffColor = 930866
DigitalOptions.BgColor = clBlack
DigitalOptions.Size = 2
DigitalOptions.ShowSeconds = True
DisplayMode = dmAnalog
Hold = False
AnalogOptions.DrawMarks = True
AnalogOptions.HourHandColor = clBlack
AnalogOptions.HourHandLength = 60
@ -53,10 +55,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = RgClockMode
AnchorSideBottom.Side = asrBottom
Left = 336
Height = 51
Top = 194
Width = 99
Left = 342
Height = 25
Top = 203
Width = 98
Anchors = [akLeft]
BorderSpacing.Left = 16
BorderSpacing.Right = 16
@ -68,10 +70,10 @@ object Form1: TForm1
AnchorSideLeft.Control = RgDisplayMode
AnchorSideTop.Control = RgDisplayMode
AnchorSideTop.Side = asrBottom
Left = 216
Left = 224
Height = 77
Top = 168
Width = 104
Width = 102
AutoFill = True
AutoSize = True
BorderSpacing.Top = 24
@ -84,7 +86,7 @@ object Form1: TForm1
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 57
ClientWidth = 100
ClientWidth = 98
ItemIndex = 0
Items.Strings = (
'Clock'
@ -98,7 +100,7 @@ object Form1: TForm1
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 336
Left = 342
Height = 15
Top = 86
Width = 98
@ -113,10 +115,10 @@ object Form1: TForm1
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnStartStop
Left = 336
Left = 342
Height = 19
Top = 163
Width = 100
Top = 172
Width = 98
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 16
@ -129,7 +131,7 @@ object Form1: TForm1
AnchorSideLeft.Control = RgDisplayMode
AnchorSideTop.Control = RgClockMode
AnchorSideTop.Side = asrBottom
Left = 216
Left = 224
Height = 15
Top = 261
Width = 49
@ -143,7 +145,7 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 216
Left = 224
Height = 58
Top = 86
Width = 91
@ -174,16 +176,18 @@ object Form1: TForm1
AnchorSideTop.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnStartStop
Left = 336
Left = 342
Height = 19
Top = 163
Width = 87
Top = 172
Width = 85
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 12
BorderSpacing.Right = 16
BorderSpacing.Bottom = 12
Caption = 'Military time'
Checked = True
OnChange = CbMilitaryTimeChange
State = cbChecked
TabOrder = 4
Visible = False
end
@ -191,7 +195,7 @@ object Form1: TForm1
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = LblCountDownTime
AnchorSideTop.Side = asrBottom
Left = 336
Left = 342
Height = 23
Top = 105
Width = 99
@ -225,4 +229,21 @@ object Form1: TForm1
Size = 3
end
end
object BtnPauseResume: TButton
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = BtnStartStop
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnStartStop
AnchorSideRight.Side = asrBottom
Left = 342
Height = 25
Top = 230
Width = 98
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
Caption = 'Pause'
OnClick = BtnPauseResumeClick
TabOrder = 8
Visible = False
end
end