cmoney.dfm

来自「Delphi深度探索,Delphi深度探索（第二版）」· DFM 代码 · 共 533 行

DFM
533 行
字号 
object FormMain: TFormMain
  Left = 325
  Top = 38
  Width = 1036
  Height = 630
  Caption = #23478#24237#23567#36134#26412
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 15
  object lblPerson: TLabel
    Left = 32
    Top = 16
    Width = 89
    Height = 16
    AutoSize = False
    Caption = #20154#21592
  end
  object lblAcct: TLabel
    Left = 32
    Top = 240
    Width = 57
    Height = 16
    AutoSize = False
    Caption = #36134#30446
  end
  object lbl2: TLabel
    Left = 504
    Top = 256
    Width = 128
    Height = 15
    Caption = #19981#28385#36275#32422#26463#30340#36755#20837':'
  end
  object lbl1: TLabel
    Left = 24
    Top = 424
    Width = 57
    Height = 16
    AutoSize = False
    Caption = #31867#21035
  end
  object bnPerson: TBoldNavigator
    Left = 104
    Top = 8
    Width = 192
    Height = 25
    BoldHandle = blhPerson
    TabOrder = 0
    ImageIndices.nbFirst = -1
    ImageIndices.nbPrior = -1
    ImageIndices.nbNext = -1
    ImageIndices.nbLast = -1
    ImageIndices.nbInsert = -1
    ImageIndices.nbDelete = -1
    ImageIndices.nbMoveUp = -1
    ImageIndices.nbMoveDown = -1
    DeleteQuestion = 'Delete "%1:s"?'
    UnlinkQuestion = 'Unlink "%1:s" from "%2:s"?'
    RemoveQuestion = 'Remove "%1:s" from the list?'
  end
  object bgPerson: TBoldGrid
    Left = 32
    Top = 80
    Width = 353
    Height = 145
    AddNewAtEnd = False
    BoldAutoColumns = False
    BoldShowConstraints = True
    BoldHandle = blhPerson
    BoldProperties.NilElementMode = neNone
    Columns = <
      item
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
      end
      item
        BoldProperties.Expression = 'name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Name'
      end
      item
        BoldProperties.Expression = 'totalAmount'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'TotalAmount'
      end
      item
        BoldProperties.Expression = 'birthYear'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'BirthYear'
      end
      item
        BoldProperties.Expression = 'age'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Age'
      end>
    DefaultRowHeight = 17
    EnableColAdjust = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    ColWidths = (
      17
      64
      93
      64
      64)
  end
  object bnAcct: TBoldNavigator
    Left = 112
    Top = 232
    Width = 192
    Height = 25
    BoldHandle = blhAcct
    TabOrder = 2
    ImageIndices.nbFirst = -1
    ImageIndices.nbPrior = -1
    ImageIndices.nbNext = -1
    ImageIndices.nbLast = -1
    ImageIndices.nbInsert = -1
    ImageIndices.nbDelete = -1
    ImageIndices.nbMoveUp = -1
    ImageIndices.nbMoveDown = -1
    DeleteQuestion = 'Delete "%1:s"?'
    UnlinkQuestion = 'Unlink "%1:s" from "%2:s"?'
    RemoveQuestion = 'Remove "%1:s" from the list?'
  end
  object bgAcct: TBoldGrid
    Left = 32
    Top = 272
    Width = 417
    Height = 137
    AddNewAtEnd = False
    BoldAutoColumns = False
    BoldShowConstraints = False
    BoldHandle = blhAcct
    BoldProperties.NilElementMode = neNone
    Columns = <
      item
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
      end
      item
        BoldProperties.Expression = 'name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Name'
      end
      item
        BoldProperties.Expression = 'amount'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Amount'
        UserDraw = True
      end
      item
        BoldProperties.Expression = 'happenDate.formatDateTime('#39'yyyy mmmm dd'#26085#39')'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'HappenDate'
      end
      item
        BoldProperties.Expression = 'payPerson.name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'PayPerson'
      end
      item
        BoldProperties.Expression = 'category'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        LookupHandle = blhCategory
      end>
    DefaultRowHeight = 17
    EnableColAdjust = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawCell = bgAcctDrawCell
    ColWidths = (
      17
      64
      64
      108
      84
      64)
  end
  object btnAmount: TButton
    Left = 504
    Top = 8
    Width = 177
    Height = 25
    Caption = #33719#24471'2002'#24180'12'#26376#30340#33457#36153
    TabOrder = 4
    OnClick = btnAmountClick
  end
  object btnPaste: TButton
    Left = 704
    Top = 80
    Width = 75
    Height = 25
    Caption = #31896#36148#22270#20687
    TabOrder = 5
    OnClick = btnPasteClick
  end
  object btnLoad: TButton
    Left = 704
    Top = 112
    Width = 75
    Height = 25
    Caption = #21152#36733#22270#20687
    TabOrder = 6
    OnClick = btnLoadClick
  end
  object biPhoto: TBoldImage
    Left = 504
    Top = 80
    Width = 177
    Height = 171
    BoldHandle = blhPerson
    BoldProperties.Expression = 'photo'
    StretchMode = bsmStretchToFit
    Center = False
    QuickDraw = False
    TabOrder = 7
  end
  object btnReport: TButton
    Left = 304
    Top = 8
    Width = 75
    Height = 25
    Caption = #25171#21360#25253#34920
    TabOrder = 8
    OnClick = btnReportClick
  end
  object bg1: TBoldGrid
    Left = 504
    Top = 280
    Width = 521
    Height = 129
    AddNewAtEnd = False
    BoldAutoColumns = False
    BoldShowConstraints = False
    BoldHandle = blhConstraints
    BoldProperties.InternalDrag = False
    BoldProperties.NilElementMode = neNone
    Columns = <
      item
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
      end
      item
        BoldProperties.Representation = 10
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'Name'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
      end
      item
        BoldProperties.Representation = 11
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'Message'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
      end
      item
        BoldProperties.Representation = 12
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'Expr'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
      end
      item
        BoldProperties.Representation = 13
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'ElementType'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
      end
      item
        BoldProperties.Representation = 14
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = 'Offending Element'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
      end>
    DefaultRowHeight = 17
    EnableColAdjust = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    ColWidths = (
      17
      71
      106
      118
      87
      109)
    RowHeights = (
      17
      18)
  end
  object btnQry: TButton
    Left = 32
    Top = 48
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 10
    OnClick = btnQryClick
  end
  object edtQry: TEdit
    Left = 112
    Top = 48
    Width = 273
    Height = 23
    Color = clInfoBk
    TabOrder = 11
    Text = 'Person.allInstances'
  end
  object bnCategory: TBoldNavigator
    Left = 104
    Top = 416
    Width = 192
    Height = 25
    BoldHandle = blhCategory
    TabOrder = 12
    ImageIndices.nbFirst = -1
    ImageIndices.nbPrior = -1
    ImageIndices.nbNext = -1
    ImageIndices.nbLast = -1
    ImageIndices.nbInsert = -1
    ImageIndices.nbDelete = -1
    ImageIndices.nbMoveUp = -1
    ImageIndices.nbMoveDown = -1
    DeleteQuestion = 'Delete "%1:s"?'
    UnlinkQuestion = 'Unlink "%1:s" from "%2:s"?'
    RemoveQuestion = 'Remove "%1:s" from the list?'
  end
  object bgCategory: TBoldGrid
    Left = 24
    Top = 456
    Width = 417
    Height = 137
    AddNewAtEnd = False
    BoldAutoColumns = False
    BoldShowConstraints = False
    BoldHandle = blhCategory
    BoldProperties.NilElementMode = neNone
    Columns = <
      item
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
      end
      item
        BoldProperties.Expression = 'name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Name'
      end>
    DefaultRowHeight = 17
    EnableColAdjust = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawCell = bgAcctDrawCell
    ColWidths = (
      17
      64)
  end
  object blhPerson: TBoldListHandle
    RootHandle = DmMoney.bshMoney
    Expression = 'Person.allInstances'
    Left = 72
    Top = 8
  end
  object blhAcct: TBoldListHandle
    RootHandle = blhPerson
    Expression = 'pay'
    Left = 80
    Top = 232
  end
  object dlgOpen: TOpenDialog
    Filter = #20301#22270#25991#20214'|*.bmp'
    Left = 704
    Top = 160
  end
  object blhConstraints: TBoldListHandle
    RootHandle = DmMoney.bshMoney
    Expression = 'MoneyModelRoot.allInstances.constraints->select(c|not c)'
    Left = 720
    Top = 232
  end
  object blhCategory: TBoldListHandle
    RootHandle = DmMoney.bshMoney
    Expression = 'Category.allInstances'
    Left = 64
    Top = 416
  end
end

cmoney.dfm - 源码说明

本页面展示了「Delphi深度探索,Delphi深度探索（第二版）」中的 cmoney.dfm 源码文件，采用 DFM 编程语言编写，共 533 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?