MainUnit.dfm 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137
  1. object FormRenderText: TFormRenderText
  2. Left = 381
  3. Top = 128
  4. Caption = 'RenderText example'
  5. ClientHeight = 207
  6. ClientWidth = 566
  7. Color = clBtnFace
  8. Constraints.MinHeight = 200
  9. Constraints.MinWidth = 580
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -12
  13. Font.Name = 'Segoe UI'
  14. Font.Style = []
  15. OnCreate = FormCreate
  16. TextHeight = 15
  17. object Image: TImage32
  18. Left = 0
  19. Top = 61
  20. Width = 566
  21. Height = 146
  22. Align = alClient
  23. Bitmap.ResamplerClassName = 'TNearestResampler'
  24. BitmapAlign = baTopLeft
  25. Scale = 1.000000000000000000
  26. ScaleMode = smNormal
  27. TabOrder = 1
  28. OnResize = ImageResize
  29. end
  30. object PanelTop: TPanel
  31. Left = 0
  32. Top = 0
  33. Width = 566
  34. Height = 61
  35. Align = alTop
  36. BevelOuter = bvNone
  37. Font.Charset = DEFAULT_CHARSET
  38. Font.Color = clWindowText
  39. Font.Height = -11
  40. Font.Name = 'Tahoma'
  41. Font.Style = []
  42. ParentFont = False
  43. TabOrder = 0
  44. DesignSize = (
  45. 566
  46. 61)
  47. object LabelText: TLabel
  48. Left = 4
  49. Top = 7
  50. Width = 78
  51. Height = 13
  52. Caption = 'Enter text here:'
  53. end
  54. object LabelFont: TLabel
  55. Left = 386
  56. Top = 7
  57. Width = 26
  58. Height = 13
  59. Anchors = [akTop, akRight]
  60. Caption = 'Font:'
  61. end
  62. object Bevel1: TBevel
  63. Left = 378
  64. Top = 4
  65. Width = 5
  66. Height = 51
  67. Shape = bsLeftLine
  68. end
  69. object EditText: TEdit
  70. Left = 92
  71. Top = 4
  72. Width = 277
  73. Height = 21
  74. Anchors = [akLeft, akTop, akRight]
  75. AutoSize = False
  76. TabOrder = 0
  77. Text = 'Excellence endures 0123456789'
  78. OnChange = Changed
  79. end
  80. object ButtonBenchmark: TButton
  81. Left = 224
  82. Top = 32
  83. Width = 145
  84. Height = 21
  85. Caption = 'Run Benchmark'
  86. TabOrder = 4
  87. OnClick = ButtonBenchmarkClick
  88. end
  89. object CheckBoxAntiAlias: TCheckBox
  90. Left = 4
  91. Top = 34
  92. Width = 97
  93. Height = 17
  94. Caption = 'Anti-alias'
  95. TabOrder = 2
  96. OnClick = Changed
  97. end
  98. object CheckBoxCanvas32: TCheckBox
  99. Left = 124
  100. Top = 34
  101. Width = 97
  102. Height = 17
  103. Caption = 'TCanvas32'
  104. TabOrder = 3
  105. OnClick = CheckBoxCanvas32Click
  106. end
  107. object ComboBoxFont: TComboBox
  108. Left = 418
  109. Top = 4
  110. Width = 143
  111. Height = 21
  112. Anchors = [akTop, akRight]
  113. TabOrder = 1
  114. OnChange = Changed
  115. end
  116. object CheckBoxBold: TCheckBox
  117. Left = 418
  118. Top = 34
  119. Width = 62
  120. Height = 17
  121. Anchors = [akTop, akRight]
  122. Caption = 'Bold'
  123. TabOrder = 5
  124. OnClick = Changed
  125. end
  126. object CheckBoxItalic: TCheckBox
  127. Left = 491
  128. Top = 34
  129. Width = 62
  130. Height = 17
  131. Anchors = [akTop, akRight]
  132. Caption = 'Italic'
  133. TabOrder = 6
  134. OnClick = Changed
  135. end
  136. end
  137. end