main.dfm 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129
  1. object frmMain: TfrmMain
  2. Left = 277
  3. Top = 178
  4. BorderStyle = bsSingle
  5. Caption = 'FontGen for GLScene'
  6. ClientHeight = 363
  7. ClientWidth = 378
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -11
  12. Font.Name = 'MS Sans Serif'
  13. Font.Style = []
  14. OldCreateOrder = False
  15. OnCreate = FormCreate
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object GroupBox1: TGroupBox
  19. Left = 6
  20. Top = 8
  21. Width = 363
  22. Height = 109
  23. Margins.Left = 2
  24. Margins.Top = 2
  25. Margins.Right = 2
  26. Margins.Bottom = 2
  27. Caption = '1. Select Windows font :'
  28. TabOrder = 0
  29. object Panel1: TPanel
  30. Left = 10
  31. Top = 20
  32. Width = 343
  33. Height = 41
  34. Margins.Left = 2
  35. Margins.Top = 2
  36. Margins.Right = 2
  37. Margins.Bottom = 2
  38. BevelOuter = bvLowered
  39. Caption = 'Sample AaBbCcDd'
  40. Font.Charset = RUSSIAN_CHARSET
  41. Font.Color = clWindowText
  42. Font.Height = -12
  43. Font.Name = 'Arial'
  44. Font.Style = []
  45. ParentFont = False
  46. TabOrder = 0
  47. end
  48. object Button1: TButton
  49. Left = 142
  50. Top = 70
  51. Width = 75
  52. Height = 25
  53. Margins.Left = 2
  54. Margins.Top = 2
  55. Margins.Right = 2
  56. Margins.Bottom = 2
  57. Caption = 'Select...'
  58. TabOrder = 1
  59. OnClick = Button1Click
  60. end
  61. end
  62. object GroupBox2: TGroupBox
  63. Left = 6
  64. Top = 120
  65. Width = 363
  66. Height = 169
  67. Margins.Left = 2
  68. Margins.Top = 2
  69. Margins.Right = 2
  70. Margins.Bottom = 2
  71. Caption = '2. Check glyphs'
  72. TabOrder = 1
  73. object Image1: TImage
  74. Left = 2
  75. Top = 15
  76. Width = 359
  77. Height = 152
  78. Margins.Left = 2
  79. Margins.Top = 2
  80. Margins.Right = 2
  81. Margins.Bottom = 2
  82. Align = alClient
  83. Center = True
  84. ExplicitWidth = 360
  85. end
  86. end
  87. object GroupBox3: TGroupBox
  88. Left = 6
  89. Top = 290
  90. Width = 363
  91. Height = 65
  92. Margins.Left = 2
  93. Margins.Top = 2
  94. Margins.Right = 2
  95. Margins.Bottom = 2
  96. Caption = '3. Save font:'
  97. TabOrder = 2
  98. object Button2: TButton
  99. Left = 150
  100. Top = 24
  101. Width = 75
  102. Height = 25
  103. Margins.Left = 2
  104. Margins.Top = 2
  105. Margins.Right = 2
  106. Margins.Bottom = 2
  107. Caption = 'Save...'
  108. TabOrder = 0
  109. OnClick = Button2Click
  110. end
  111. end
  112. object FontDialog1: TFontDialog
  113. Font.Charset = DEFAULT_CHARSET
  114. Font.Color = clWindowText
  115. Font.Height = -11
  116. Font.Name = 'MS Sans Serif'
  117. Font.Style = []
  118. Left = 264
  119. Top = 82
  120. end
  121. object SaveDialog1: TSaveDialog
  122. DefaultExt = 'gsf'
  123. FileName = 'font'
  124. Filter = 'GlScene Font|*.gsf|All Files|*.*'
  125. Title = 'Save font'
  126. Left = 290
  127. Top = 310
  128. end
  129. end