FrameCForm.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:2k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 325
  3.   Top = 104
  4.   Width = 368
  5.   Height = 280
  6.   Caption = 'FrameClock'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   DesignSize = (
  15.     360
  16.     253)
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object MdFramedClock1: TMdFramedClock
  20.     Left = 72
  21.     Top = 32
  22.     Width = 215
  23.     Height = 83
  24.     Anchors = [akLeft, akTop, akRight, akBottom]
  25.     TabOrder = 0
  26.     SubLabel.Left = 0
  27.     SubLabel.Top = 0
  28.     SubLabel.Width = 215
  29.     SubLabel.Height = 83
  30.     SubLabel.Align = alClient
  31.     SubLabel.Alignment = taCenter
  32.     SubLabel.Caption = '3:19:30 PM'
  33.     SubLabel.Font.Charset = DEFAULT_CHARSET
  34.     SubLabel.Font.Color = clWindowText
  35.     SubLabel.Font.Height = -19
  36.     SubLabel.Font.Name = 'Arial'
  37.     SubLabel.Font.Style = [fsBold]
  38.     SubLabel.ParentFont = False
  39.     SubLabel.Layout = tlCenter
  40.     SubLabel.WordWrap = True
  41.     SubTimer.Left = 24
  42.     SubTimer.Top = 16
  43.   end
  44.   object MdFramedClock2: TMdFramedClock
  45.     Left = 72
  46.     Top = 120
  47.     Width = 217
  48.     Height = 81
  49.     Font.Charset = DEFAULT_CHARSET
  50.     Font.Color = clWindowText
  51.     Font.Height = -11
  52.     Font.Name = 'Modern'
  53.     Font.Style = []
  54.     ParentFont = False
  55.     TabOrder = 1
  56.     SubLabel.Left = 0
  57.     SubLabel.Top = 0
  58.     SubLabel.Width = 217
  59.     SubLabel.Height = 81
  60.     SubLabel.Align = alClient
  61.     SubLabel.Alignment = taCenter
  62.     SubLabel.Caption = '3:19:30 PM'
  63.     SubLabel.Font.Charset = DEFAULT_CHARSET
  64.     SubLabel.Font.Color = clWindowText
  65.     SubLabel.Font.Height = -19
  66.     SubLabel.Font.Name = 'Arial Narrow'
  67.     SubLabel.Font.Style = [fsBold]
  68.     SubLabel.ParentFont = False
  69.     SubLabel.Layout = tlCenter
  70.     SubLabel.WordWrap = True
  71.     SubTimer.Left = 24
  72.     SubTimer.Top = 16
  73.   end
  74. end