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

https://github.com/the-Arioch/jcl · Unknown · 154 lines · 154 code · 0 blank · 0 comment · 0 complexity · e607363c3dca43e12b9831d32465f4c5 MD5 · raw file

  1. object 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
  154. end