fmFontDialog.fmx 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468
  1. object FontDialog: TFontDialog
  2. Left = 0
  3. Top = 0
  4. BorderIcons = [biSystemMenu]
  5. BorderStyle = Single
  6. Caption = 'Text Settings'
  7. ClientHeight = 458
  8. ClientWidth = 518
  9. Position = ScreenCenter
  10. Transparency = True
  11. FormFactor.Width = 320
  12. FormFactor.Height = 480
  13. FormFactor.Devices = [Desktop]
  14. OnCreate = FormCreate
  15. DesignerMasterStyle = 0
  16. object pnlSizeBorder: TPanel
  17. Align = Client
  18. Size.Width = 518.000000000000000000
  19. Size.Height = 458.000000000000000000
  20. Size.PlatformDefault = False
  21. StyleLookup = 'panelstyle_radius'
  22. TabOrder = 0
  23. object btnCancel: TButton
  24. ModalResult = 2
  25. Position.X = 412.000000000000000000
  26. Position.Y = 415.000000000000000000
  27. TabOrder = 9
  28. Text = 'Cancel'
  29. TextSettings.Trimming = None
  30. end
  31. object Button1: TButton
  32. ModalResult = 1
  33. Position.X = 324.000000000000000000
  34. Position.Y = 415.000000000000000000
  35. TabOrder = 10
  36. Text = 'OK'
  37. TextSettings.Trimming = None
  38. end
  39. object chkWordWrap: TCheckBox
  40. Position.X = 66.000000000000000000
  41. Position.Y = 428.000000000000000000
  42. Size.Width = 95.000000000000000000
  43. Size.Height = 19.000000000000000000
  44. Size.PlatformDefault = False
  45. TabOrder = 47
  46. Text = 'WordWrap'
  47. OnChange = chkWordWrapChange
  48. end
  49. object cpnlFontColor: TColorPanel
  50. Color = claWhite
  51. Position.X = 334.000000000000000000
  52. Position.Y = 164.000000000000000000
  53. Size.Width = 154.000000000000000000
  54. Size.Height = 111.000000000000000000
  55. Size.PlatformDefault = False
  56. TabOrder = 13
  57. OnChange = cpnlFontColorChange
  58. end
  59. object edtFontColor: TEdit
  60. Touch.InteractiveGestures = [LongTap, DoubleTap]
  61. TabOrder = 39
  62. ReadOnly = True
  63. TextSettings.HorzAlign = Center
  64. Position.X = 346.000000000000000000
  65. Position.Y = 278.000000000000000000
  66. Size.Width = 113.000000000000000000
  67. Size.Height = 22.000000000000000000
  68. Size.PlatformDefault = False
  69. OnChange = edtFontColorChange
  70. end
  71. object edtFontName: TEdit
  72. Touch.InteractiveGestures = [LongTap, DoubleTap]
  73. TabOrder = 7
  74. Position.X = 31.000000000000000000
  75. Position.Y = 69.000000000000000000
  76. Size.Width = 189.000000000000000000
  77. Size.Height = 22.000000000000000000
  78. Size.PlatformDefault = False
  79. OnChange = edtFontNameChange
  80. end
  81. object edtFontSize: TEdit
  82. Touch.InteractiveGestures = [LongTap, DoubleTap]
  83. TabOrder = 3
  84. Position.X = 233.000000000000000000
  85. Position.Y = 69.000000000000000000
  86. Size.Width = 80.000000000000000000
  87. Size.Height = 22.000000000000000000
  88. Size.PlatformDefault = False
  89. OnChange = edtFontSizeChange
  90. end
  91. object GroupBox1: TGroupBox
  92. Enabled = False
  93. Position.X = 25.000000000000000000
  94. Position.Y = 312.000000000000000000
  95. Size.Width = 200.000000000000000000
  96. Size.Height = 108.000000000000000000
  97. Size.PlatformDefault = False
  98. Text = 'Align'
  99. TabOrder = 12
  100. object cbbHorzAlign: TComboBox
  101. Items.Strings = (
  102. 'Leading'
  103. 'Center'
  104. 'Trailing')
  105. Position.X = 89.000000000000000000
  106. Position.Y = 16.000000000000000000
  107. Size.Width = 104.000000000000000000
  108. Size.Height = 22.000000000000000000
  109. Size.PlatformDefault = False
  110. TabOrder = 39
  111. OnChange = cbbTextAlignChange
  112. end
  113. object cbbVertAlign: TComboBox
  114. Items.Strings = (
  115. 'Leading'
  116. 'Center'
  117. 'Trailing')
  118. Position.X = 88.000000000000000000
  119. Position.Y = 46.000000000000000000
  120. Size.Width = 104.000000000000000000
  121. Size.Height = 22.000000000000000000
  122. Size.PlatformDefault = False
  123. TabOrder = 38
  124. OnChange = cbbTextAlignChange
  125. end
  126. object Label2: TLabel
  127. Position.X = 15.000000000000000000
  128. Position.Y = 19.000000000000000000
  129. Size.Width = 66.000000000000000000
  130. Size.Height = 17.000000000000000000
  131. Size.PlatformDefault = False
  132. Text = 'HorzAlign:'
  133. TabOrder = 42
  134. end
  135. object Label3: TLabel
  136. Position.X = 18.000000000000000000
  137. Position.Y = 49.000000000000000000
  138. Size.Width = 66.000000000000000000
  139. Size.Height = 17.000000000000000000
  140. Size.PlatformDefault = False
  141. Text = 'VertAlign:'
  142. TabOrder = 41
  143. end
  144. object Label4: TLabel
  145. Position.X = 15.000000000000000000
  146. Position.Y = 78.000000000000000000
  147. Size.Width = 66.000000000000000000
  148. Size.Height = 17.000000000000000000
  149. Size.PlatformDefault = False
  150. TextSettings.Trimming = None
  151. Text = 'Trimming:'
  152. TabOrder = 40
  153. end
  154. object cbbTrimming: TComboBox
  155. Items.Strings = (
  156. 'None'
  157. 'Character'
  158. 'Word')
  159. Position.X = 89.000000000000000000
  160. Position.Y = 75.000000000000000000
  161. Size.Width = 103.000000000000000000
  162. Size.Height = 22.000000000000000000
  163. Size.PlatformDefault = False
  164. TabOrder = 43
  165. end
  166. end
  167. object grp1: TGroupBox
  168. Enabled = False
  169. Position.X = 328.000000000000000000
  170. Position.Y = 44.000000000000000000
  171. Size.Width = 154.000000000000000000
  172. Size.Height = 112.000000000000000000
  173. Size.PlatformDefault = False
  174. Text = 'Font Style'
  175. TabOrder = 5
  176. object chkBold: TCheckBox
  177. StyledSettings = [FontColor]
  178. Hint = 'Bold'
  179. Position.X = 18.000000000000000000
  180. Position.Y = 21.000000000000000000
  181. Size.Width = 111.000000000000000000
  182. Size.Height = 19.000000000000000000
  183. Size.PlatformDefault = False
  184. TabOrder = 41
  185. Text = 'Bold'
  186. TextSettings.Font.Size = 13.000000000000000000
  187. TextSettings.Font.StyleExt = {00070000000000000004000000}
  188. OnChange = chkFontStyleChange
  189. end
  190. object chkItalic: TCheckBox
  191. StyledSettings = [FontColor]
  192. Hint = 'Italic'
  193. Position.X = 18.000000000000000000
  194. Position.Y = 42.000000000000000000
  195. Size.Width = 119.000000000000000000
  196. Size.Height = 19.000000000000000000
  197. Size.PlatformDefault = False
  198. TabOrder = 40
  199. Text = 'Italic'
  200. TextSettings.Font.Size = 13.000000000000000000
  201. TextSettings.Font.StyleExt = {00040000000200000004000000}
  202. OnChange = chkFontStyleChange
  203. end
  204. object chkUnderline: TCheckBox
  205. StyledSettings = [FontColor]
  206. Hint = 'Underline'
  207. Position.X = 18.000000000000000000
  208. Position.Y = 63.000000000000000000
  209. Size.Width = 119.000000000000000000
  210. Size.Height = 19.000000000000000000
  211. Size.PlatformDefault = False
  212. TabOrder = 39
  213. Text = 'UnderLine'
  214. TextSettings.Font.Size = 13.000000000000000000
  215. TextSettings.Font.StyleExt = {04040000000000000004000000}
  216. OnChange = chkFontStyleChange
  217. end
  218. object chkStrikeOut: TCheckBox
  219. StyledSettings = [FontColor]
  220. Hint = 'StrikeOut'
  221. Position.X = 18.000000000000000000
  222. Position.Y = 85.000000000000000000
  223. Size.Width = 119.000000000000000000
  224. Size.Height = 19.000000000000000000
  225. Size.PlatformDefault = False
  226. TabOrder = 38
  227. Text = 'StrikeOut'
  228. TextSettings.Font.Size = 13.000000000000000000
  229. TextSettings.Font.StyleExt = {08040000000000000004000000}
  230. OnChange = chkFontStyleChange
  231. end
  232. end
  233. object grp2: TGroupBox
  234. Position.X = 226.000000000000000000
  235. Position.Y = 312.000000000000000000
  236. Size.Width = 276.000000000000000000
  237. Size.Height = 80.000000000000000000
  238. Size.PlatformDefault = False
  239. Text = 'Demo'
  240. TabOrder = 11
  241. object txtDemo: TText
  242. Anchors = [akLeft, akTop, akRight, akBottom]
  243. Position.X = 8.000000000000000000
  244. Position.Y = 18.000000000000000000
  245. Size.Width = 261.000000000000000000
  246. Size.Height = 57.000000000000000000
  247. Size.PlatformDefault = False
  248. Text = 'ABcd123'#20013#25991'!?'
  249. end
  250. end
  251. object Label1: TLabel
  252. Position.X = 233.000000000000000000
  253. Position.Y = 44.000000000000000000
  254. Size.Width = 78.000000000000000000
  255. Size.Height = 17.000000000000000000
  256. Size.PlatformDefault = False
  257. Text = 'Font Size'
  258. TabOrder = 1
  259. end
  260. object Label5: TLabel
  261. Position.X = 31.000000000000000000
  262. Position.Y = 44.000000000000000000
  263. Size.Width = 78.000000000000000000
  264. Size.Height = 17.000000000000000000
  265. Size.PlatformDefault = False
  266. Text = 'Family Name'
  267. TabOrder = 0
  268. end
  269. object lstFontName: TListBox
  270. Position.X = 31.000000000000000000
  271. Position.Y = 91.000000000000000000
  272. Size.Width = 189.000000000000000000
  273. Size.Height = 209.000000000000000000
  274. Size.PlatformDefault = False
  275. TabOrder = 6
  276. DisableFocusEffect = True
  277. DefaultItemStyles.ItemStyle = ''
  278. DefaultItemStyles.GroupHeaderStyle = ''
  279. DefaultItemStyles.GroupFooterStyle = ''
  280. OnChange = lstFontNameChange
  281. Viewport.Width = 185.000000000000000000
  282. Viewport.Height = 205.000000000000000000
  283. end
  284. object lstFontSize: TListBox
  285. Position.X = 233.000000000000000000
  286. Position.Y = 91.000000000000000000
  287. Size.Width = 80.000000000000000000
  288. Size.Height = 209.000000000000000000
  289. Size.PlatformDefault = False
  290. TabOrder = 2
  291. DisableFocusEffect = True
  292. Items.Strings = (
  293. '5'
  294. '5.5'
  295. '6.5'
  296. '7.5'
  297. '8'
  298. '9'
  299. '10'
  300. '11'
  301. '12'
  302. '14'
  303. '16'
  304. '18'
  305. '20'
  306. '22'
  307. '24'
  308. '26'
  309. '28'
  310. '36'
  311. '48'
  312. '72')
  313. DefaultItemStyles.ItemStyle = ''
  314. DefaultItemStyles.GroupHeaderStyle = ''
  315. DefaultItemStyles.GroupFooterStyle = ''
  316. OnChange = lstFontSizeChange
  317. Viewport.Width = 60.000000000000000000
  318. Viewport.Height = 205.000000000000000000
  319. end
  320. object rctTitleBar: TRectangle
  321. Align = MostTop
  322. Corners = [TopLeft, TopRight]
  323. Fill.Color = x80808080
  324. HitTest = False
  325. Margins.Left = 1.000000000000000000
  326. Margins.Top = 1.000000000000000000
  327. Margins.Right = 1.000000000000000000
  328. Position.X = 1.000000000000000000
  329. Position.Y = 1.000000000000000000
  330. Size.Width = 516.000000000000000000
  331. Size.Height = 34.000000000000000000
  332. Size.PlatformDefault = False
  333. Stroke.Thickness = 0.000000000000000000
  334. XRadius = 5.000000000000000000
  335. YRadius = 5.000000000000000000
  336. object rctTitleBarForMove: TRectangle
  337. Align = Client
  338. Corners = [TopLeft, TopRight]
  339. Fill.Kind = None
  340. Locked = True
  341. Margins.Left = 1.000000000000000000
  342. Margins.Top = 1.000000000000000000
  343. Margins.Right = 1.000000000000000000
  344. Size.Width = 514.000000000000000000
  345. Size.Height = 33.000000000000000000
  346. Size.PlatformDefault = False
  347. Stroke.Kind = None
  348. XRadius = 15.000000000000000000
  349. YRadius = 15.000000000000000000
  350. object Layout1: TLayout
  351. Align = Right
  352. Position.X = 377.000000000000000000
  353. Size.Width = 137.000000000000000000
  354. Size.Height = 33.000000000000000000
  355. Size.PlatformDefault = False
  356. TabOrder = 0
  357. object rctBtnClose: TRectangle
  358. Align = MostRight
  359. Corners = [TopRight]
  360. Fill.Color = x00B13B2B
  361. Margins.Top = -1.000000000000000000
  362. Margins.Right = -1.000000000000000000
  363. Position.X = 93.000000000000000000
  364. Position.Y = -1.000000000000000000
  365. Size.Width = 45.000000000000000000
  366. Size.Height = 34.000000000000000000
  367. Size.PlatformDefault = False
  368. Stroke.Kind = None
  369. XRadius = 5.000000000000000000
  370. YRadius = 5.000000000000000000
  371. OnClick = rctBtnCloseClick
  372. object aniForCloseBtn: TColorAnimation
  373. Duration = 0.200000002980232200
  374. PropertyName = 'Fill.Color'
  375. StartValue = x00B13B2B
  376. StopValue = xFFB13B2B
  377. Trigger = 'IsMouseOver=true'
  378. TriggerInverse = 'IsMouseOver=false'
  379. end
  380. object pathCloseBtn: TPath
  381. Align = Center
  382. Data.Path = {
  383. 2200000000000000B4AB0C4400000044010000002F1242440A33954302000000
  384. 07924544B0338E430200000006924544FCDA8243020000002F12424443B77743
  385. 0200000082923E44E6B769430200000028E63844E6B76943020000007B663544
  386. 43B777430100000000000044F0A7E6430100000009339543F2B5774302000000
  387. 68338E430CB7694302000000C0DA824358B76943020000009AB677439AB67743
  388. 02000000B4B76943EEDA82430200000000B8694396338E430200000041B77743
  389. 093395430100000097A8E643000000440100000041B777437B66354402000000
  390. E4B7694328E6384402000000E4B7694382923E440200000041B777432F124244
  391. 02000000FBDA82430792454402000000B0338E43069245440200000009339543
  392. 2F1242440100000000000044B4AB0C44010000007B6635442F12424402000000
  393. 28E63844069245440200000082923E4407924544020000002F1242442F124244
  394. 020000000792454482923E44020000000792454428E63844020000002F124244
  395. 7B66354401000000B4AB0C440000004403000000B4AB0C4400000044}
  396. Locked = True
  397. HitTest = False
  398. Size.Width = 10.000000000000000000
  399. Size.Height = 12.000000000000000000
  400. Size.PlatformDefault = False
  401. Stroke.Kind = None
  402. WrapMode = Fit
  403. end
  404. end
  405. end
  406. object lblCaption: TLabel
  407. Position.X = 37.000000000000000000
  408. Position.Y = 8.000000000000000000
  409. Size.Width = 116.000000000000000000
  410. Size.Height = 17.000000000000000000
  411. Size.PlatformDefault = False
  412. Text = 'Text Settings'
  413. TabOrder = 1
  414. end
  415. end
  416. object Path4: TPath
  417. Data.Path = {
  418. 6000000000000000000066440000D0430100000000001A440000D04302000000
  419. 66E618440000D0430200000000001844CDCCD14302000000000018440000D443
  420. 01000000000018440000064402000000000018449A1907440200000066E61844
  421. 000008440200000000001A440000084401000000000026440000084402000000
  422. 9A1927440000084402000000000028449A190744020000000000284400000644
  423. 01000000000028440000F04301000000000037440000F0430100000000003744
  424. 000048440100000000802B44000048440200000066662A440000484402000000
  425. 0080294466E64844020000000080294400004A44010000000080294400005644
  426. 02000000008029449A1957440200000066662A44000058440200000000802B44
  427. 00005844010000000080544400005844020000009A9955440000584402000000
  428. 008056449A195744020000000080564400005644010000000080564400004A44
  429. 020000000080564466E64844020000009A995544000048440200000000805444
  430. 0000484401000000000049440000484401000000000049440000F04301000000
  431. 000058440000F04301000000000058440000064402000000000058449A190744
  432. 0200000066E65844000008440200000000005A44000008440100000000006644
  433. 00000844020000009A1967440000084402000000000068449A19074402000000
  434. 000068440000064401000000000068440000D4430200000000006844CDCCD143
  435. 020000009A1967440000D04302000000000066440000D0430300000000006644
  436. 0000D04300000000000024440000944301000000000024440000284302000000
  437. 000024449A992343020000009A19234400002043020000000000224400002043
  438. 010000000000D04200002043020000003333C74200002043020000000000C042
  439. 9A992343020000000000C04200002843010000000000C0420000944302000000
  440. 0000C04233339643020000003333C74200009843020000000000D04200009843
  441. 0100000000002043000098430200000066662443000098430200000000002843
  442. 3333964302000000000028430000944301000000000028430000684301000000
  443. 0000A84300006843010000000000A84300004644010000000000744300004644
  444. 020000009A996F43000046440200000000006C4366E646440200000000006C43
  445. 000048440100000000006C43000056440200000000006C439A19574402000000
  446. 9A996F4300005844020000000000744300005844010000000000FE4300005844
  447. 020000009A1900440000584402000000000001449A1957440200000000000144
  448. 00005644010000000000014400004844020000000000014466E6464402000000
  449. 9A19004400004644020000000000FE4300004644010000000000D04300004644
  450. 010000000000D043000068430100000000001244000068430100000000001244
  451. 000094430200000000001244333396430200000066E612440000984302000000
  452. 0000144400009843010000000000224400009843020000009A19234400009843
  453. 0200000000002444333396430200000000002444000094430300000000002444
  454. 00009443}
  455. Fill.Color = xFF34B500
  456. Locked = True
  457. HitTest = False
  458. Position.X = 9.000000000000000000
  459. Position.Y = 9.000000000000000000
  460. Size.Width = 16.000000000000000000
  461. Size.Height = 16.000000000000000000
  462. Size.PlatformDefault = False
  463. Stroke.Kind = None
  464. WrapMode = Fit
  465. end
  466. end
  467. end
  468. end