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

tvplanit: Check all examples for HiDPI scaling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-20 15:39:18 +00:00
parent 795bda1357
commit d8a0f703d2
31 changed files with 1018 additions and 506 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,30 +1,24 @@
object Form1: TForm1
Left = 320
Height = 283
Height = 311
Top = 160
Width = 461
Width = 473
AutoSize = True
Caption = 'Form1'
ClientHeight = 283
ClientWidth = 461
ClientHeight = 311
ClientWidth = 473
Font.Color = clWindowText
OnCreate = FormCreate
LCLVersion = '1.7'
object VpLEDLabel1: TVpLEDLabel
Left = 9
Height = 60
Top = 6
Width = 442
Caption = 'Visual PlanIt'
Columns = 13
OffColor = 930866
OnColor = clLime
Size = 3
end
OnShow = FormShow
LCLVersion = '1.6.4.0'
object VpClock1: TVpClock
Left = 11
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 0
Height = 200
Top = 72
Top = 78
Width = 200
BorderSpacing.Top = 8
Active = False
Color = clForm
ClockMode = cmClock
@ -55,20 +49,32 @@ object Form1: TForm1
OnSecondChange = VpClockTimeChange
end
object BtnStartStop: TButton
Left = 351
AnchorSideLeft.Control = RgClockMode
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = RgClockMode
AnchorSideBottom.Side = asrBottom
Left = 336
Height = 51
Top = 189
Top = 194
Width = 99
Anchors = [akLeft]
BorderSpacing.Left = 16
BorderSpacing.Right = 16
Caption = 'Start'
OnClick = BtnStartStopClick
TabOrder = 6
end
object RgClockMode: TRadioGroup
Left = 224
Height = 89
Top = 151
Width = 116
AnchorSideLeft.Control = RgDisplayMode
AnchorSideTop.Control = RgDisplayMode
AnchorSideTop.Side = asrBottom
Left = 216
Height = 77
Top = 168
Width = 104
AutoFill = True
AutoSize = True
BorderSpacing.Top = 24
Caption = 'Clock mode'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -77,8 +83,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 69
ClientWidth = 112
ClientHeight = 57
ClientWidth = 100
ItemIndex = 0
Items.Strings = (
'Clock'
@ -89,38 +95,62 @@ object Form1: TForm1
TabOrder = 2
end
object LblCountDownTime: TLabel
Left = 351
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 336
Height = 15
Top = 72
Top = 86
Width = 98
BorderSpacing.Top = 16
BorderSpacing.Right = 16
Caption = 'Count-down time:'
FocusControl = EdCountDownTime
ParentColor = False
Visible = False
end
object CbNewClockFace: TCheckBox
Left = 351
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnStartStop
Left = 336
Height = 19
Top = 141
Top = 163
Width = 100
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 16
BorderSpacing.Bottom = 12
Caption = 'New clock face'
OnChange = CbNewClockFaceChange
TabOrder = 5
end
object LblElapsedTime: TLabel
Left = 224
AnchorSideLeft.Control = RgDisplayMode
AnchorSideTop.Control = RgClockMode
AnchorSideTop.Side = asrBottom
Left = 216
Height = 15
Top = 256
Top = 261
Width = 49
BorderSpacing.Top = 16
BorderSpacing.Bottom = 16
Caption = 'Elapsed...'
ParentColor = False
end
object RgDisplayMode: TRadioGroup
Left = 224
Height = 63
Top = 72
Width = 115
AnchorSideLeft.Control = VpClock1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 216
Height = 58
Top = 86
Width = 91
AutoFill = True
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Top = 16
Caption = 'Display mode'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -129,8 +159,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 43
ClientWidth = 111
ClientHeight = 38
ClientWidth = 87
ItemIndex = 0
Items.Strings = (
'Analog'
@ -140,23 +170,59 @@ object Form1: TForm1
TabOrder = 1
end
object CbMilitaryTime: TCheckBox
Left = 351
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnStartStop
Left = 336
Height = 19
Top = 128
Top = 163
Width = 87
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 12
BorderSpacing.Right = 16
BorderSpacing.Bottom = 12
Caption = 'Military time'
OnChange = CbMilitaryTimeChange
TabOrder = 4
Visible = False
end
object EdCountDownTime: TEdit
Left = 351
AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = LblCountDownTime
AnchorSideTop.Side = asrBottom
Left = 336
Height = 23
Top = 92
Top = 105
Width = 99
BorderSpacing.Top = 4
BorderSpacing.Right = 16
OnChange = EdCountDownTimeChange
TabOrder = 3
Text = '00:00:30'
Visible = False
end
object Panel1: TPanel
Left = 0
Height = 70
Top = 0
Width = 452
AutoSize = True
Caption = 'Panel1'
ClientHeight = 70
ClientWidth = 452
TabOrder = 7
object VpLEDLabel1: TVpLEDLabel
Left = 5
Height = 60
Top = 5
Width = 442
BorderSpacing.Around = 4
Caption = 'Visual PlanIt'
Columns = 13
OffColor = 930866
OnColor = clLime
Size = 3
end
end
end