CustomStyleUnit.dfm 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  1. object CustomStyleForm: TCustomStyleForm
  2. Left = 190
  3. Top = 113
  4. ActiveControl = BeginEdit
  5. BorderIcons = [biSystemMenu]
  6. BorderStyle = bsDialog
  7. Caption = 'Edit Custom Style'
  8. ClientHeight = 234
  9. ClientWidth = 225
  10. Color = clBtnFace
  11. Font.Charset = DEFAULT_CHARSET
  12. Font.Color = clWindowText
  13. Font.Height = -11
  14. Font.Name = 'MS Sans Serif'
  15. Font.Style = []
  16. OldCreateOrder = False
  17. Position = poScreenCenter
  18. OnCreate = FormCreate
  19. OnDestroy = FormDestroy
  20. OnShow = FormShow
  21. PixelsPerInch = 96
  22. TextHeight = 13
  23. object Bevel1: TBevel
  24. Left = 16
  25. Top = 140
  26. Width = 193
  27. Height = 2
  28. Shape = bsTopLine
  29. end
  30. object Label1: TLabel
  31. Left = 24
  32. Top = 19
  33. Width = 50
  34. Height = 13
  35. Caption = '&Beginning:'
  36. FocusControl = BeginEdit
  37. end
  38. object Label2: TLabel
  39. Left = 24
  40. Top = 43
  41. Width = 36
  42. Height = 13
  43. Caption = '&Ending:'
  44. FocusControl = EndEdit
  45. end
  46. object Label3: TLabel
  47. Left = 24
  48. Top = 67
  49. Width = 94
  50. Height = 13
  51. Caption = '&Ignore Ending After:'
  52. FocusControl = IgnoreEdit
  53. end
  54. object Bevel2: TBevel
  55. Left = 8
  56. Top = 186
  57. Width = 209
  58. Height = 2
  59. Shape = bsTopLine
  60. end
  61. object Button1: TButton
  62. Left = 24
  63. Top = 152
  64. Width = 81
  65. Height = 25
  66. Caption = 'Co&lor...'
  67. TabOrder = 6
  68. OnClick = Button1Click
  69. end
  70. object Button2: TButton
  71. Left = 120
  72. Top = 152
  73. Width = 81
  74. Height = 25
  75. Caption = '&Style...'
  76. TabOrder = 5
  77. OnClick = Button2Click
  78. end
  79. object BeginEdit: TEdit
  80. Left = 80
  81. Top = 16
  82. Width = 121
  83. Height = 21
  84. MaxLength = 20
  85. TabOrder = 0
  86. OnChange = BeginEditChange
  87. end
  88. object EndEdit: TEdit
  89. Left = 80
  90. Top = 40
  91. Width = 121
  92. Height = 21
  93. MaxLength = 20
  94. TabOrder = 1
  95. OnChange = EndEditChange
  96. end
  97. object IgnoreEdit: TEdit
  98. Left = 124
  99. Top = 64
  100. Width = 77
  101. Height = 21
  102. MaxLength = 1
  103. TabOrder = 2
  104. OnChange = IgnoreEditChange
  105. end
  106. object Button3: TButton
  107. Left = 24
  108. Top = 200
  109. Width = 81
  110. Height = 25
  111. Caption = '&OK'
  112. Default = True
  113. ModalResult = 1
  114. TabOrder = 7
  115. end
  116. object Button4: TButton
  117. Left = 120
  118. Top = 200
  119. Width = 81
  120. Height = 25
  121. Cancel = True
  122. Caption = '&Cancel'
  123. ModalResult = 2
  124. TabOrder = 8
  125. end
  126. object SwitchableCheckBox: TCheckBox
  127. Left = 24
  128. Top = 88
  129. Width = 73
  130. Height = 17
  131. Caption = 'S&witchable'
  132. TabOrder = 3
  133. OnClick = SwitchableCheckBoxClick
  134. end
  135. object LineStartOnlyCheckBox: TCheckBox
  136. Left = 24
  137. Top = 112
  138. Width = 177
  139. Height = 17
  140. Caption = 'Only &at beginning of line'
  141. TabOrder = 4
  142. OnClick = LineStartOnlyCheckBoxClick
  143. end
  144. object ColorDlg: TColorDialog
  145. Options = [cdAnyColor]
  146. Left = 192
  147. end
  148. end