DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: muran123
今日帖子: 9
在线用户: 18
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 stacker (OOP才是王道) ★☆☆☆☆ -
普通会员
2019/4/8 1:30:32
标题:
请问这个时钟的Layout的算法要如何修改才能让时钟的字型紧贴圆的内缘 浏览:247
加入我的收藏
楼主: 它的排位如下:


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 ,时钟上的字一律跑位。
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行42.96875毫秒 RSS