开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
trackdemo.dfm
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：11k
源码类别：

Delphi控件源码

开发平台：

Delphi

trackdemo.dfm：源码内容
  1. object TrackbarForm: TTrackbarForm
  2.   Left = 140
  3.   Top = 75
  4.   Width = 710
  5.   Height = 715
  6.   Caption = 'TrackBar Demo'
  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.   Position = poDefaultPosOnly
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object fcGroupBox1: TfcGroupBox
  18.     Left = 304
  19.     Top = 16
  20.     Width = 393
  21.     Height = 369
  22.     Caption = 'Horizontal Examples'
  23.     TabOrder = 0
  24.     object fcLabel1: TfcLabel
  25.       Left = 123
  26.       Top = 192
  27.       Width = 136
  28.       Height = 13
  29.       Caption = 'Inverted Horizontal Trackbar'
  30.       TextOptions.Alignment = taLeftJustify
  31.       TextOptions.VAlignment = vaTop
  32.     end
  33.     object fcDemoRichEdit1: TfcDemoRichEdit
  34.       Left = 24
  35.       Top = 224
  36.       Width = 345
  37.       Height = 121
  38.       Font.Charset = ANSI_CHARSET
  39.       Font.Color = clWindowText
  40.       Font.Height = -13
  41.       Font.Name = 'Arial'
  42.       Font.Style = []
  43.       ParentFont = False
  44.       TabOrder = 0
  45.       RichEditLines = {
  46.         7B5C727466315C616E73695C616E7369637067313235325C64656666305C6465
  47.         666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C66636861
  48.         727365743020417269616C3B7D7D0D0A5C766965776B696E64345C7563315C70
  49.         6172645C667332302054686520686F72697A6F6E74616C20747261636B626172
  50.         732061626F76652073686F772074686520666F6C6C6F77696E673A0D0A5C7061
  51.         7220312E20547261636B696E67206F6620666C6F6174696E6720706F696E7420
  52.         76616C7565730D0A5C70617220322E205469636B2054657874206C6162656C73
  53.         2C20696E746572737065727365640D0A5C70617220322E20466F726D61747465
  54.         64207465787420646973706C6179696E672063757272656E7420747261636B65
  55.         6420706F736974696F6E20286C65667420616E64207269676874290D0A5C7061
  56.         72207D0D0A00}
  57.     end
  58.     object fcTrackBar5: TfcTrackBar
  59.       Left = 24
  60.       Top = 40
  61.       Width = 337
  62.       Height = 81
  63.       TextAttributes.Position = tbtRight
  64.       TextAttributes.OffsetX = 15
  65.       TextAttributes.Font.Charset = DEFAULT_CHARSET
  66.       TextAttributes.Font.Color = clWindowText
  67.       TextAttributes.Font.Height = -11
  68.       TextAttributes.Font.Name = 'MS Sans Serif'
  69.       TextAttributes.Font.Style = []
  70.       TextAttributes.DisplayFormat = '0.00 inches'
  71.       TextAttributes.ShowText = True
  72.       TextAttributes.TickLabelFrequency = 5
  73.       ThumbColor = clBtnFace
  74.       SpacingRightBottom = 80
  75.       SpacingEdgeTrackbar = 10
  76.       ReadOnly = False
  77.       Increment = 1
  78.       Max = 10
  79.       Frequency = 1
  80.       Position = 5
  81.       TabOrder = 1
  82.     end
  83.     object fcTrackBar4: TfcTrackBar
  84.       Left = 24
  85.       Top = 112
  86.       Width = 313
  87.       Height = 81
  88.       TextAttributes.Font.Charset = DEFAULT_CHARSET
  89.       TextAttributes.Font.Color = clWindowText
  90.       TextAttributes.Font.Height = -11
  91.       TextAttributes.Font.Name = 'MS Sans Serif'
  92.       TextAttributes.Font.Style = []
  93.       TextAttributes.DisplayFormat = '0.00 inches'
  94.       TextAttributes.ShowText = True
  95.       TextAttributes.TickLabelFrequency = 1
  96.       ThumbColor = clBtnFace
  97.       SpacingLeftTop = 75
  98.       SpacingEdgeTrackbar = 10
  99.       ReadOnly = False
  100.       Inverted = True
  101.       Increment = 1
  102.       Max = 10
  103.       Frequency = 1
  104.       Position = 5
  105.       TabOrder = 2
  106.     end
  107.   end
  108.   object fcGroupBox2: TfcGroupBox
  109.     Left = 8
  110.     Top = 8
  111.     Width = 281
  112.     Height = 489
  113.     Caption = 'Ruler Example'
  114.     TabOrder = 1
  115.     object fcLabel2: TfcLabel
  116.       Left = 147
  117.       Top = 16
  118.       Width = 88
  119.       Height = 31
  120.       Caption = 'Inverted Trackbar'#13#10'with Custom Glyph'
  121.       TextOptions.Alignment = taLeftJustify
  122.       TextOptions.VAlignment = vaTop
  123.     end
  124.     object fcTrackBar1: TfcTrackBar
  125.       Left = 56
  126.       Top = 48
  127.       Width = 81
  128.       Height = 297
  129.       TextAttributes.Position = tbtBottom
  130.       TextAttributes.OffsetX = 15
  131.       TextAttributes.Font.Charset = DEFAULT_CHARSET
  132.       TextAttributes.Font.Color = clWindowText
  133.       TextAttributes.Font.Height = -11
  134.       TextAttributes.Font.Name = 'MS Sans Serif'
  135.       TextAttributes.Font.Style = []
  136.       TextAttributes.DisplayFormat = '0.00 inches'
  137.       TextAttributes.ShowText = True
  138.       TextAttributes.TickLabelFrequency = 4
  139.       ThumbColor = clBtnFace
  140.       SpacingRightBottom = 18
  141.       SpacingEdgeTrackbar = 10
  142.       ReadOnly = False
  143.       Increment = 0.25
  144.       Max = 3
  145.       Orientation = trfcVertical
  146.       PageSize = 1
  147.       Frequency = 0.25
  148.       Position = 3
  149.       TabOrder = 0
  150.     end
  151.     object fcTrackBar7: TfcTrackBar
  152.       Left = 152
  153.       Top = 48
  154.       Width = 81
  155.       Height = 297
  156.       TextAttributes.Position = tbtBottom
  157.       TextAttributes.OffsetX = 15
  158.       TextAttributes.Font.Charset = DEFAULT_CHARSET
  159.       TextAttributes.Font.Color = clWindowText
  160.       TextAttributes.Font.Height = -11
  161.       TextAttributes.Font.Name = 'MS Sans Serif'
  162.       TextAttributes.Font.Style = []
  163.       TextAttributes.DisplayFormat = '0.00 inches'
  164.       TextAttributes.ShowText = True
  165.       TextAttributes.TickLabelFrequency = 4
  166.       TrackThumbIcon.Data = {
  167.         36010000424D3601000000000000760000002800000018000000100000000100
  168.         040000000000C000000000000000000000001000000000000000000000000000
  169.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  170.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999
  171.         9999999999999999999999999799999999999999999999999779999999999999
  172.         9999999997C79999999999999999999997CC7999999999F77777777777CCC799
  173.         999999FCCCCCCCCCCCCCCC79999999FCCCCCCCCCCCCCCCC7999999FCCCCCCCCC
  174.         CCCCCCCC799999FCCCCCCCCCCCCCCCCF999999FCCCCCCCCCCCCCCCF9999999FF
  175.         FFFFFFFFFFCCCF9999999999999999999FCCF99999999999999999999FCF9999
  176.         99999999999999999FF9999999999999999999999F9999999999}
  177.       ThumbColor = clBtnFace
  178.       SpacingRightBottom = 18
  179.       SpacingEdgeTrackbar = 10
  180.       ReadOnly = False
  181.       Inverted = True
  182.       Increment = 0.25
  183.       Max = 3
  184.       Orientation = trfcVertical
  185.       PageSize = 1
  186.       Frequency = 0.25
  187.       Position = 3
  188.       TabOrder = 1
  189.     end
  190.     object fcDemoRichEdit2: TfcDemoRichEdit
  191.       Left = 16
  192.       Top = 352
  193.       Width = 249
  194.       Height = 121
  195.       Font.Charset = ANSI_CHARSET
  196.       Font.Color = clWindowText
  197.       Font.Height = -13
  198.       Font.Name = 'Arial'
  199.       Font.Style = []
  200.       ParentFont = False
  201.       TabOrder = 2
  202.       RichEditLines = {
  203.         7B5C727466315C616E73695C616E7369637067313235325C64656666305C6465
  204.         666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C66636861
  205.         727365743020417269616C3B7D7D0D0A5C766965776B696E64345C7563315C70
  206.         6172645C667332302054686520766572746963616C20747261636B6261727320
  207.         61626F76652073686F772074686520666F6C6C6F77696E673A0D0A5C70617220
  208.         312E20547261636B696E67206F6620666C6F6174696E6720706F696E74207661
  209.         6C7565730D0A5C70617220322E205469636B2054657874206C6162656C732C20
  210.         696E746572737065727365640D0A5C70617220332E20466F726D617474656420
  211.         7465787420646973706C6179696E672063757272656E7420747261636B656420
  212.         706F736974696F6E0D0A5C70617220342E20437573746F6D207468756D620D0A
  213.         5C706172207D0D0A00}
  214.     end
  215.   end
  216.   object fcGroupBox3: TfcGroupBox
  217.     Left = 8
  218.     Top = 504
  219.     Width = 313
  220.     Height = 177
  221.     Caption = 'Custom Tick Labels'
  222.     TabOrder = 2
  223.     object fcTrackBar6: TfcTrackBar
  224.       Left = 16
  225.       Top = 24
  226.       Width = 113
  227.       Height = 145
  228.       TextAttributes.Position = tbtBottom
  229.       TextAttributes.OffsetX = 15
  230.       TextAttributes.Font.Charset = DEFAULT_CHARSET
  231.       TextAttributes.Font.Color = clWindowText
  232.       TextAttributes.Font.Height = -11
  233.       TextAttributes.Font.Name = 'MS Sans Serif'
  234.       TextAttributes.Font.Style = []
  235.       TextAttributes.DisplayFormat = '0.00 inches'
  236.       TextAttributes.TickLabelFrequency = 1
  237.       ThumbColor = clBtnFace
  238.       SpacingEdgeTrackbar = 10
  239.       ReadOnly = False
  240.       Inverted = True
  241.       Increment = 1
  242.       Max = 3
  243.       Orientation = trfcVertical
  244.       PageSize = 1
  245.       Frequency = 1
  246.       Position = 3
  247.       SelEnd = 7
  248.       SelStart = 5
  249.       TabOrder = 0
  250.       OnDrawTickText = fcTrackBar6DrawTickText
  251.     end
  252.     object fcDemoRichEdit3: TfcDemoRichEdit
  253.       Left = 136
  254.       Top = 24
  255.       Width = 161
  256.       Height = 121
  257.       Font.Charset = ANSI_CHARSET
  258.       Font.Color = clWindowText
  259.       Font.Height = -13
  260.       Font.Name = 'Arial'
  261.       Font.Style = []
  262.       ParentFont = False
  263.       TabOrder = 1
  264.       RichEditLines = {
  265.         7B5C727466315C616E73695C616E7369637067313235325C64656666305C6465
  266.         666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C66636861
  267.         727365743020417269616C3B7D7D0D0A5C766965776B696E64345C7563315C70
  268.         6172645C667332302054686520766572746963616C20747261636B6261722061
  269.         626F76652073686F777320686F7720796F752063616E20757365207468652074
  270.         7261636B62617220746F20686176652064657363726970746976652074657874
  271.         20666F7220747261636B696E6720746963206C6162656C732E0D0A5C70617220
  272.         0D0A5C706172207D0D0A00}
  273.     end
  274.   end
  275.   object fcGroupBox4: TfcGroupBox
  276.     Left = 328
  277.     Top = 400
  278.     Width = 369
  279.     Height = 273
  280.     Caption = 'Embed in DBCtrlGrid or InfoPower'#39's vertical or horizontal grid'
  281.     TabOrder = 3
  282.     object DBCtrlGrid1: TDBCtrlGrid
  283.       Left = 16
  284.       Top = 24
  285.       Width = 337
  286.       Height = 233
  287.       ColCount = 1
  288.       DataSource = DataSource1
  289.       PanelHeight = 77
  290.       PanelWidth = 320
  291.       TabOrder = 0
  292.       RowCount = 3
  293.       object fcTrackBar2: TfcTrackBar
  294.         Left = 8
  295.         Top = 8
  296.         Width = 297
  297.         Height = 65
  298.         TextAttributes.Position = tbtBottom
  299.         TextAttributes.Font.Charset = DEFAULT_CHARSET
  300.         TextAttributes.Font.Color = clWindowText
  301.         TextAttributes.Font.Height = -11
  302.         TextAttributes.Font.Name = 'MS Sans Serif'
  303.         TextAttributes.Font.Style = []
  304.         TextAttributes.DisplayFormat = #39'$'#39' 00.00'
  305.         TextAttributes.ShowText = True
  306.         TextAttributes.TickLabelFrequency = 2
  307.         ThumbColor = clBtnFace
  308.         SpacingLeftTop = 15
  309.         SpacingRightBottom = 10
  310.         ReadOnly = False
  311.         Increment = 1000
  312.         Max = 10000
  313.         PageSize = 50
  314.         Frequency = 1000
  315.         Position = 1000
  316.         TabOrder = 0
  317.         DataField = 'ItemsTotal'
  318.         DataSource = DataSource1
  319.       end
  320.     end
  321.   end
  322.   object DataSource1: TDataSource
  323.     DataSet = Table1
  324.     Left = 56
  325.     Top = 64
  326.   end
  327.   object Table1: TTable
  328.     Active = True
  329.     DatabaseName = 'FirstClass'
  330.     TableName = 'fcorders.DB'
  331.     Left = 96
  332.     Top = 64
  333.   end
  334. end