/jcl/examples/windows/widestring/WideStringDemoMain.dfm

  1object Form1: TForm1
  2  Left = 0
  3  Top = 0
  4  Caption = 'TWideStringList Example (JclUnicode)'
  5  ClientHeight = 544
  6  ClientWidth = 791
  7  Color = clBtnFace
  8  Font.Charset = ANSI_CHARSET
  9  Font.Color = clWindowText
 10  Font.Height = -15
 11  Font.Name = 'Segoe UI'
 12  Font.Style = []
 13  OldCreateOrder = False
 14  OnCreate = FormCreate
 15  OnDestroy = FormDestroy
 16  PixelsPerInch = 120
 17  TextHeight = 20
 18  object FileListView: TListView
 19    Left = 0
 20    Top = 177
 21    Width = 791
 22    Height = 342
 23    Align = alClient
 24    Columns = <
 25      item
 26        Caption = 'Name'
 27        Width = 200
 28      end
 29      item
 30        Caption = 'Location'
 31        Width = 400
 32      end
 33      item
 34        Caption = 'Encoding'
 35        Width = 150
 36      end>
 37    RowSelect = True
 38    PopupMenu = FilePopupMenu
 39    TabOrder = 0
 40    ViewStyle = vsReport
 41    OnColumnClick = FileListViewColumnClick
 42    OnDblClick = OpenwithNotepad1Click
 43  end
 44  object Panel1: TPanel
 45    Left = 0
 46    Top = 0
 47    Width = 791
 48    Height = 177
 49    Align = alTop
 50    TabOrder = 1
 51    object Label3: TLabel
 52      Left = 216
 53      Top = 58
 54      Width = 106
 55      Height = 20
 56      Caption = 'Filter encoding :'
 57    end
 58    object Label2: TLabel
 59      Left = 8
 60      Top = 58
 61      Width = 68
 62      Height = 20
 63      Caption = 'File mask :'
 64    end
 65    object Label1: TLabel
 66      Left = 8
 67      Top = 4
 68      Width = 102
 69      Height = 20
 70      Caption = 'Root directory :'
 71    end
 72    object FilterEncodingComboBox: TComboBox
 73      Left = 216
 74      Top = 79
 75      Width = 201
 76      Height = 28
 77      ItemHeight = 20
 78      TabOrder = 0
 79      Items.Strings = (
 80        ''
 81        'ANSI'
 82        'Unicode'
 83        'Unicode big endian'
 84        'UTF-8')
 85    end
 86    object IncludeSubDirectoriesCheckBox: TCheckBox
 87      Left = 448
 88      Top = 84
 89      Width = 177
 90      Height = 17
 91      Caption = 'Include sub directories'
 92      Checked = True
 93      State = cbChecked
 94      TabOrder = 1
 95    end
 96    object ConvertButton: TButton
 97      Left = 216
 98      Top = 120
 99      Width = 201
100      Height = 41
101      Caption = 'Convert UTF-8 to ANSI'
102      Enabled = False
103      TabOrder = 2
104      OnClick = ConvertButtonClick
105    end
106    object SearchButton: TButton
107      Left = 8
108      Top = 120
109      Width = 202
110      Height = 41
111      Caption = 'Search'
112      TabOrder = 3
113      OnClick = SearchButtonClick
114    end
115    object FileMaskEdit: TEdit
116      Left = 8
117      Top = 79
118      Width = 202
119      Height = 28
120      TabOrder = 4
121      Text = '*.pas;*.dfm;*.xfm;*.dpr;*.dpk*'
122    end
123    object RootDirectoryEdit: TEdit
124      Left = 8
125      Top = 24
126      Width = 769
127      Height = 28
128      TabOrder = 5
129    end
130  end
131  object StatusBar1: TStatusBar
132    Left = 0
133    Top = 519
134    Width = 791
135    Height = 25
136    Font.Charset = ANSI_CHARSET
137    Font.Color = clWindowText
138    Font.Height = -15
139    Font.Name = 'Segoe UI'
140    Font.Style = []
141    Panels = <>
142    SimplePanel = True
143    UseSystemFont = False
144  end
145  object FilePopupMenu: TPopupMenu
146    Left = 712
147    Top = 96
148    object OpenwithNotepad1: TMenuItem
149      Caption = 'Open with Notepad'
150      Default = True
151      OnClick = OpenwithNotepad1Click
152    end
153  end
154end