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

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 259
  3.   Top = 107
  4.   Width = 469
  5.   Height = 488
  6.   VertScrollBar.Range = 473
  7.   HorzScrollBar.Range = 457
  8.   ActiveControl = lbFiles
  9.   Caption = 'DelphiToKylix'
  10.   Color = clBackground
  11.   OnCreate = FormCreate
  12.   PixelsPerInch = 75
  13.   TextHeight = 13
  14.   TextWidth = 6
  15.   object lbFiles: TListBox
  16.     Left = 8
  17.     Top = 48
  18.     Width = 449
  19.     Height = 177
  20.     TabOrder = 0
  21.   end
  22.   object btnSource: TButton
  23.     Left = 120
  24.     Top = 16
  25.     Width = 129
  26.     Height = 25
  27.     Caption = 'Find Source Files'
  28.     TabOrder = 1
  29.     OnClick = btnSourceClick
  30.   end
  31.   object btnReplace: TButton
  32.     Left = 152
  33.     Top = 240
  34.     Width = 153
  35.     Height = 25
  36.     Caption = 'Do Replace / Rename'
  37.     TabOrder = 2
  38.     OnClick = btnReplaceClick
  39.   end
  40.   object lvReplace: TListView
  41.     Left = 8
  42.     Top = 272
  43.     Width = 449
  44.     Height = 201
  45.     ColumnClick = False
  46.     ColumnMove = False
  47.     Columns = <
  48.       item
  49.         AllowClick = False
  50.         Caption = 'Old'
  51.         MinWidth = 50
  52.         Width = 140
  53.       end
  54.       item
  55.         AllowClick = False
  56.         Caption = 'New'
  57.         MinWidth = 50
  58.         Width = 140
  59.       end>
  60.     RowSelect = True
  61.     TabOrder = 3
  62.     ViewStyle = vsReport
  63.   end
  64.   object cbRecurse: TCheckBox
  65.     Left = 264
  66.     Top = 16
  67.     Width = 100
  68.     Height = 25
  69.     Caption = 'Recurse'
  70.     TabOrder = 4
  71.   end
  72. end