|
|
|
| 导航： |
论坛 -> 移动应用开发
斑竹:flyers,iamdream |
|
| 作者： |
|
2019/4/8 1:30:32 |
| 标题： |
| 请问这个时钟的Layout的算法要如何修改才能让时钟的字型紧贴圆的内缘 |
浏览:1241 |
|
加入我的收藏 |
| 楼主： |
它的排位如下：
object FMXClockForm: TFMXClockForm
Left = 0
Top = 0
Caption = 'FMXClock'
ClientHeight = 480
ClientWidth = 640
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnResize = FormResize
OnShow = FormShow
DesignerMasterStyle = 0
object FMXClockLayout: TLayout
Align = Client
Size.Width = 640.0000000000
Size.Height = 480.0000000000
Size.PlatformDefault = False
TabOrder = 0
object FMXClockPanel: TPanel
Align = Client
Size.Width = 640.0000000000
Size.Height = 480.0000000000
Size.PlatformDefault = False
TabOrder = 0
object FMXClockToolBar: TToolBar
Size.Width = 640.0000000000
Size.Height = 48.0000000000
Size.PlatformDefault = False
TabOrder = 0
object FMXClockToolBarTitleLabel: TLabel
Align = Contents
AutoSize = True
Size.Width = 640.0000000000
Size.Height = 48.0000000000
Size.PlatformDefault = False
StyleLookup = 'toollabel'
TextSettings.HorzAlign = Center
Text = 'FMXClock'
TabOrder = 0
end
object FMXClockToolBarShadowEffect: TShadowEffect
Distance = 3.0000000000
Direction = 45.0000000000
Softness = 0.300000011920929000
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object FMXClockFaceCircle: TCircle
Align = Center
Margins.Left = 10.0000000000
Margins.Top = 10.0000000000
Margins.Right = 10.0000000000
Margins.Bottom = 10.0000000000
Size.Width = 400.0000000000
Size.Height = 440.0000000000
Size.PlatformDefault = False
Stroke.Thickness = 5.0000000000
object FMXClockElevenLayout: TLayout
Align = Center
RotationAngle = 330.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 0
object FMXClockElevenText: TText
Align = Top
RotationAngle = -330.0000000000
Size.Width = 50.0000000000
Size.Height = 50.0000000000
Size.PlatformDefault = False
Text = '11'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockEightLayout: TLayout
Align = Center
RotationAngle = 240.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 1
object FMXClockEightText: TText
Align = Top
RotationAngle = -240.0000000000
Text = '8'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockFiveLayout: TLayout
Align = Center
RotationAngle = 150.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 2
object FMXClockFiveText: TText
Align = Top
RotationAngle = -150.0000000000
Text = '5'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockFourLayout: TLayout
Align = Center
RotationAngle = 120.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 3
object FMXClockFourText: TText
Align = Top
RotationAngle = -120.0000000000
Text = '4'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockNineLayout: TLayout
Align = Center
RotationAngle = 270.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 4
object FMXClockNineText: TText
Align = Top
RotationAngle = -270.0000000000
Text = '9'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockOneLayout: TLayout
Align = Center
RotationAngle = 30.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 5
object FMXClockOneText: TText
Align = Top
RotationAngle = -30.0000000000
Text = '1'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockSevenLayout: TLayout
Align = Center
RotationAngle = 210.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 6
object FMXClockSevenText: TText
Align = Top
RotationAngle = -210.0000000000
Text = '7'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockSixLayout: TLayout
Align = Center
RotationAngle = 180.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 7
object FMXClockSixText: TText
Align = Top
RotationAngle = -180.0000000000
Text = '6'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockTenLayout: TLayout
Align = Center
RotationAngle = 300.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 8
object FMXClockTenText: TText
Align = Top
RotationAngle = -300.0000000000
Text = '10'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockThreeLayout: TLayout
Align = Center
RotationAngle = 90.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 9
object FMXClockThreeText: TText
Align = Top
RotationAngle = -90.0000000000
Text = '3'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockTwelveLayout: TLayout
Align = Center
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 10
object FMXClockTwelveText: TText
Align = Top
Size.Width = 50.0000000000
Size.Height = 50.0000000000
Size.PlatformDefault = False
Text = '12'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockTwoLayout: TLayout
Align = Center
RotationAngle = 60.0000000000
Size.Width = 50.0000000000
Size.Height = 400.0000000000
Size.PlatformDefault = False
TabOrder = 11
object FMXClockTwoText: TText
Align = Top
RotationAngle = -60.0000000000
Text = '2'
TextSettings.Font.Size = 24.0000000000
TextSettings.Font.StyleExt = {000700000000004000000}
end
end
object FMXClockHourRoundRect: TRoundRect
Fill.Color = claBlack
Position.X = 192.0000000000
Position.Y = 110.0000000000
RotationCenter.Y = 1.0000000000
Size.Width = 16.0000000000
Size.Height = 110.0000000000
Size.PlatformDefault = False
end
object FMXClockMinRoundRect: TRoundRect
Fill.Color = claBlack
Position.X = 193.0000000000
Position.Y = 70.0000000000
RotationCenter.Y = 1.0000000000
Size.Width = 14.0000000000
Size.Height = 151.0000000000
Size.PlatformDefault = False
end
object FMXClockSecondsRoundRect: TRoundRect
Fill.Color = claCrimson
Position.X = 196.0000000000
Position.Y = 60.0000000000
RotationCenter.Y = 1.0000000000
Size.Width = 8.0000000000
Size.Height = 164.0000000000
Size.PlatformDefault = False
end
end
end
end
object FMXClockTimer: TTimer
OnTimer = FMXClockTimerTimer
Left = 552
Top = 136
end
end
如果把FMXClockFaceCircle.Align := TAlign.Client ,时钟上的字一律跑位。
----------------------------------------------
- |
|
