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

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 107
  4.   Width = 557
  5.   Height = 290
  6.   Caption = 'ConvDemo (Conversion 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.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 224
  19.     Top = 72
  20.     Width = 54
  21.     Height = 13
  22.     Caption = 'Base &Type:'
  23.   end
  24.   object Label2: TLabel
  25.     Left = 352
  26.     Top = 72
  27.     Width = 39
  28.     Height = 13
  29.     Caption = '&Amount:'
  30.   end
  31.   object Label3: TLabel
  32.     Left = 48
  33.     Top = 16
  34.     Width = 37
  35.     Height = 13
  36.     Caption = '&Families'
  37.   end
  38.   object Label4: TLabel
  39.     Left = 352
  40.     Top = 144
  41.     Width = 88
  42.     Height = 13
  43.     Caption = 'Converted Amount'
  44.   end
  45.   object Label5: TLabel
  46.     Left = 48
  47.     Top = 72
  48.     Width = 32
  49.     Height = 13
  50.     Caption = 'T&ypes:'
  51.   end
  52.   object Label6: TLabel
  53.     Left = 224
  54.     Top = 144
  55.     Width = 80
  56.     Height = 13
  57.     Caption = '&Destination Type'
  58.   end
  59.   object Label7: TLabel
  60.     Left = 352
  61.     Top = 24
  62.     Width = 112
  63.     Height = 39
  64.     Caption = 'Instructions: drag types from list to edit boxes, enter amout'
  65.     WordWrap = True
  66.   end
  67.   object ComboFamilies: TComboBox
  68.     Left = 48
  69.     Top = 32
  70.     Width = 145
  71.     Height = 21
  72.     Style = csDropDownList
  73.     ItemHeight = 13
  74.     TabOrder = 0
  75.     OnChange = ChangeFamily
  76.     OnSelect = ChangeFamily
  77.   end
  78.   object ListTypes: TListBox
  79.     Left = 48
  80.     Top = 88
  81.     Width = 145
  82.     Height = 161
  83.     DragMode = dmAutomatic
  84.     ItemHeight = 13
  85.     TabOrder = 1
  86.   end
  87.   object EditType: TEdit
  88.     Left = 224
  89.     Top = 88
  90.     Width = 121
  91.     Height = 21
  92.     TabOrder = 2
  93.     OnChange = DoConvert
  94.     OnDragDrop = EditTypeDragDrop
  95.     OnDragOver = EditTypeDragOver
  96.   end
  97.   object EditAmount: TEdit
  98.     Left = 352
  99.     Top = 88
  100.     Width = 121
  101.     Height = 21
  102.     TabOrder = 3
  103.     Text = '100'
  104.     OnChange = DoConvert
  105.   end
  106.   object EditConverted: TEdit
  107.     Left = 352
  108.     Top = 160
  109.     Width = 121
  110.     Height = 21
  111.     Color = clInactiveCaptionText
  112.     Font.Charset = DEFAULT_CHARSET
  113.     Font.Color = clWindowText
  114.     Font.Height = -11
  115.     Font.Name = 'MS Sans Serif'
  116.     Font.Style = []
  117.     ParentFont = False
  118.     ParentShowHint = False
  119.     ReadOnly = True
  120.     ShowHint = False
  121.     TabOrder = 4
  122.   end
  123.   object BtnSimple: TButton
  124.     Left = 232
  125.     Top = 32
  126.     Width = 75
  127.     Height = 25
  128.     Caption = '&Simple Test'
  129.     TabOrder = 5
  130.     OnClick = BtnSimpleClick
  131.   end
  132.   object EditDestination: TEdit
  133.     Left = 224
  134.     Top = 160
  135.     Width = 121
  136.     Height = 21
  137.     TabOrder = 6
  138.     OnChange = DoConvert
  139.     OnDragDrop = EditTypeDragDrop
  140.     OnDragOver = EditTypeDragOver
  141.   end
  142.   object BtnConvert: TButton
  143.     Left = 296
  144.     Top = 208
  145.     Width = 113
  146.     Height = 25
  147.     Caption = '&Convert'
  148.     TabOrder = 7
  149.     OnClick = DoConvert
  150.   end
  151. end