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

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

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