home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / dnarrays.lzh / ARRTEST5.DFM / ARRTEST5.txt
Text File  |  1995-04-30  |  3KB  |  163 lines
  1. object CopyDlg: TCopyDlg
  2.   Left = 368
  3.   Top = 110
  4.   ActiveControl = LstSource
  5.   BorderIcons = [biSystemMenu]
  6.   BorderStyle = bsDialog
  7.   Caption = 'Copy Items'
  8.   ClientHeight = 319
  9.   ClientWidth = 392
  10.   Font.Color = clWindowText
  11.   Font.Height = -16
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   PixelsPerInch = 120
  15.   Position = poScreenCenter
  16.   TextHeight = 20
  17.   object SrcLabel: TLabel
  18.     Left = 10
  19.     Top = 10
  20.     Width = 181
  21.     Height = 20
  22.     AutoSize = False
  23.     Caption = '&Source-Array:'
  24.     FocusControl = LstSource
  25.     Font.Color = clBlack
  26.     Font.Height = -15
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = [fsBold]
  29.     ParentFont = False
  30.     IsControl = True
  31.   end
  32.   object DstLabel: TLabel
  33.     Left = 207
  34.     Top = 10
  35.     Width = 174
  36.     Height = 20
  37.     AutoSize = False
  38.     Caption = '&Target Array:'
  39.     FocusControl = LstTarget
  40.     Font.Color = clBlack
  41.     Font.Height = -15
  42.     Font.Name = 'MS Sans Serif'
  43.     Font.Style = [fsBold]
  44.     ParentFont = False
  45.     IsControl = True
  46.   end
  47.   object Label1: TLabel
  48.     Left = 8
  49.     Top = 200
  50.     Width = 92
  51.     Height = 20
  52.     Caption = '&From Index:'
  53.     FocusControl = EdtFromIndex
  54.   end
  55.   object Label2: TLabel
  56.     Left = 8
  57.     Top = 236
  58.     Width = 71
  59.     Height = 20
  60.     Caption = 'T&o Index:'
  61.     FocusControl = EdtToIndex
  62.   end
  63.   object Label3: TLabel
  64.     Left = 208
  65.     Top = 200
  66.     Width = 113
  67.     Height = 20
  68.     Caption = '&Items to Copy:'
  69.     FocusControl = EdtNumItems
  70.   end
  71.   object OKBtn: TBitBtn
  72.     Left = 179
  73.     Top = 275
  74.     Width = 96
  75.     Height = 34
  76.     Font.Color = clBlack
  77.     Font.Height = -15
  78.     Font.Name = 'MS Sans Serif'
  79.     Font.Style = [fsBold]
  80.     ParentFont = False
  81.     TabOrder = 0
  82.     Kind = bkOK
  83.     Margin = 2
  84.     Spacing = -1
  85.     IsControl = True
  86.   end
  87.   object CancelBtn: TBitBtn
  88.     Left = 284
  89.     Top = 275
  90.     Width = 96
  91.     Height = 34
  92.     Font.Color = clBlack
  93.     Font.Height = -15
  94.     Font.Name = 'MS Sans Serif'
  95.     Font.Style = [fsBold]
  96.     ParentFont = False
  97.     TabOrder = 1
  98.     Kind = bkCancel
  99.     Margin = 2
  100.     Spacing = -1
  101.     IsControl = True
  102.   end
  103.   object LstSource: TListBox
  104.     Left = 10
  105.     Top = 30
  106.     Width = 180
  107.     Height = 155
  108.     ExtendedSelect = False
  109.     Font.Color = clBlack
  110.     Font.Height = -15
  111.     Font.Name = 'MS Sans Serif'
  112.     Font.Style = [fsBold]
  113.     ItemHeight = 16
  114.     ParentFont = False
  115.     Sorted = True
  116.     TabOrder = 2
  117.     IsControl = True
  118.   end
  119.   object LstTarget: TListBox
  120.     Left = 207
  121.     Top = 30
  122.     Width = 173
  123.     Height = 155
  124.     ExtendedSelect = False
  125.     Font.Color = clBlack
  126.     Font.Height = -15
  127.     Font.Name = 'MS Sans Serif'
  128.     Font.Style = [fsBold]
  129.     ItemHeight = 16
  130.     ParentFont = False
  131.     Sorted = True
  132.     TabOrder = 3
  133.     IsControl = True
  134.   end
  135.   object EdtFromIndex: TEdit
  136.     Left = 104
  137.     Top = 196
  138.     Width = 89
  139.     Height = 29
  140.     MaxLength = 5
  141.     TabOrder = 4
  142.     Text = 'EdtFromIndex'
  143.   end
  144.   object EdtToIndex: TEdit
  145.     Left = 104
  146.     Top = 232
  147.     Width = 89
  148.     Height = 29
  149.     MaxLength = 5
  150.     TabOrder = 5
  151.     Text = 'EdtToIndex'
  152.   end
  153.   object EdtNumItems: TEdit
  154.     Left = 208
  155.     Top = 232
  156.     Width = 89
  157.     Height = 29
  158.     MaxLength = 5
  159.     TabOrder = 6
  160.     Text = 'EdtNumItems'
  161.   end
  162. end
  163.