/components/printers/unix/udlgselectprinter.lfm

http://github.com/graemeg/lazarus · Unknown · 548 lines · 548 code · 0 blank · 0 comment · 0 complexity · c34f0b19c6b536580c583f297468fa33 MD5 · raw file

  1. object dlgSelectPrinter: TdlgSelectPrinter
  2. Left = 330
  3. Height = 441
  4. Top = 111
  5. Width = 563
  6. ActiveControl = btnProp
  7. BorderIcons = [biSystemMenu]
  8. BorderStyle = bsDialog
  9. Caption = 'Printing'
  10. ClientHeight = 441
  11. ClientWidth = 563
  12. OnCreate = dlgSelectPrinterCREATE
  13. OnShow = dlgSelectPrinterSHOW
  14. Position = poScreenCenter
  15. LCLVersion = '1.5'
  16. object PrinterGroupbox: TGroupBox
  17. Left = 6
  18. Height = 137
  19. Top = 6
  20. Width = 551
  21. Align = alTop
  22. BorderSpacing.Around = 6
  23. Caption = ' Printer '
  24. ClientHeight = 118
  25. ClientWidth = 547
  26. TabOrder = 0
  27. object labState: TLabel
  28. Left = 96
  29. Height = 17
  30. Top = 49
  31. Width = 57
  32. Caption = 'labState'
  33. ParentColor = False
  34. end
  35. object labLocation: TLabel
  36. Left = 96
  37. Height = 17
  38. Top = 73
  39. Width = 80
  40. Caption = 'labLocation'
  41. ParentColor = False
  42. end
  43. object labComment: TLabel
  44. Left = 96
  45. Height = 17
  46. Top = 97
  47. Width = 87
  48. Caption = 'labComment'
  49. ParentColor = False
  50. end
  51. object ImgPrn: TImage
  52. Left = 96
  53. Height = 17
  54. Top = 12
  55. Width = 17
  56. end
  57. object PrinterNameLabel: TLabel
  58. Left = 250
  59. Height = 17
  60. Top = 8
  61. Width = 40
  62. Anchors = []
  63. Caption = 'Name'
  64. ParentColor = False
  65. end
  66. object PrinterStateLabel: TLabel
  67. Left = 10
  68. Height = 17
  69. Top = 49
  70. Width = 36
  71. Caption = 'State'
  72. ParentColor = False
  73. OnChangeBounds = PrinterStateLabelChangeBounds
  74. end
  75. object PrinterLocationLabel: TLabel
  76. Left = 10
  77. Height = 17
  78. Top = 73
  79. Width = 59
  80. Caption = 'Location'
  81. ParentColor = False
  82. end
  83. object PrinterDescriptionLabel: TLabel
  84. Left = 10
  85. Height = 17
  86. Top = 97
  87. Width = 78
  88. Caption = 'Description'
  89. ParentColor = False
  90. end
  91. object labPrinterName: TLabel
  92. Left = 10
  93. Height = 17
  94. Top = 12
  95. Width = 40
  96. Caption = 'Name'
  97. ParentColor = False
  98. OnChangeBounds = PrinterStateLabelChangeBounds
  99. end
  100. object btnProp: TButton
  101. AnchorSideLeft.Control = cbPrinters
  102. AnchorSideLeft.Side = asrBottom
  103. AnchorSideTop.Control = cbPrinters
  104. AnchorSideRight.Side = asrBottom
  105. Left = 442
  106. Height = 29
  107. Top = 7
  108. Width = 99
  109. Anchors = [akTop, akRight]
  110. AutoSize = True
  111. Caption = 'Properties ...'
  112. OnClick = btnPropCLICK
  113. TabOrder = 0
  114. end
  115. object cbPrintToFile: TCheckBox
  116. AnchorSideRight.Side = asrBottom
  117. Left = 438
  118. Height = 24
  119. Top = 39
  120. Width = 101
  121. Anchors = [akRight, akBottom]
  122. Caption = 'Print to file'
  123. TabOrder = 1
  124. end
  125. object cbPrinters: TComboBox
  126. AnchorSideRight.Control = btnProp
  127. Left = 120
  128. Height = 31
  129. Top = 7
  130. Width = 316
  131. Anchors = [akTop, akLeft, akRight]
  132. BorderSpacing.Right = 6
  133. ItemHeight = 0
  134. OnChange = cbPrintersCHANGE
  135. OnKeyPress = cbPrintersKEYPRESS
  136. Style = csDropDownList
  137. TabOrder = 2
  138. end
  139. end
  140. object NbOpts: TPageControl
  141. Left = 6
  142. Height = 217
  143. Top = 177
  144. Width = 551
  145. ActivePage = pgCopies
  146. Align = alClient
  147. Anchors = [akLeft]
  148. BorderSpacing.Around = 6
  149. TabIndex = 0
  150. TabOrder = 1
  151. object pgCopies: TTabSheet
  152. Caption = 'Copies'
  153. ClientHeight = 186
  154. ClientWidth = 547
  155. object gbPages: TGroupBox
  156. AnchorSideBottom.Control = pgCopies
  157. AnchorSideBottom.Side = asrBottom
  158. Left = 8
  159. Height = 173
  160. Top = 7
  161. Width = 262
  162. Anchors = [akTop, akLeft, akBottom]
  163. BorderSpacing.Around = 6
  164. Caption = ' Select pages '
  165. ClientHeight = 154
  166. ClientWidth = 258
  167. TabOrder = 0
  168. object Bevel1: TBevel
  169. AnchorSideTop.Control = edRange
  170. AnchorSideTop.Side = asrBottom
  171. Left = 8
  172. Height = 2
  173. Top = 110
  174. Width = 240
  175. BorderSpacing.Top = 6
  176. Shape = bsTopLine
  177. Style = bsRaised
  178. end
  179. object labPage: TLabel
  180. AnchorSideTop.Control = Bevel1
  181. AnchorSideTop.Side = asrBottom
  182. Left = 8
  183. Height = 17
  184. Top = 124
  185. Width = 40
  186. BorderSpacing.Top = 12
  187. Caption = 'Pages'
  188. ParentColor = False
  189. end
  190. object edRange: TEdit
  191. AnchorSideLeft.Control = rbRange
  192. AnchorSideLeft.Side = asrBottom
  193. AnchorSideTop.Control = rbRange
  194. AnchorSideTop.Side = asrCenter
  195. AnchorSideRight.Control = gbPages
  196. AnchorSideRight.Side = asrBottom
  197. Left = 90
  198. Height = 27
  199. Top = 77
  200. Width = 162
  201. Anchors = [akTop, akLeft, akRight]
  202. BorderSpacing.Left = 15
  203. BorderSpacing.Right = 6
  204. TabOrder = 0
  205. end
  206. object edPageSet: TComboBox
  207. AnchorSideTop.Control = labPage
  208. AnchorSideTop.Side = asrCenter
  209. AnchorSideRight.Control = gbPages
  210. AnchorSideRight.Side = asrBottom
  211. Left = 104
  212. Height = 27
  213. Top = 119
  214. Width = 148
  215. Anchors = [akTop, akRight]
  216. BorderSpacing.Right = 6
  217. ItemHeight = 0
  218. ItemIndex = 0
  219. Items.Strings = (
  220. 'All pages'
  221. 'Odd pages'
  222. 'Even pages'
  223. )
  224. Style = csDropDownList
  225. TabOrder = 1
  226. Text = 'All pages'
  227. end
  228. object rbCurrentPage: TRadioButton
  229. AnchorSideTop.Control = rbAllPage
  230. AnchorSideTop.Side = asrBottom
  231. Left = 8
  232. Height = 24
  233. Top = 26
  234. Width = 113
  235. BorderSpacing.Around = 2
  236. Caption = 'Current page'
  237. DragCursor = crDefault
  238. Enabled = False
  239. TabOrder = 2
  240. end
  241. object rbRange: TRadioButton
  242. AnchorSideTop.Control = rbSelection
  243. AnchorSideTop.Side = asrBottom
  244. Left = 8
  245. Height = 24
  246. Top = 78
  247. Width = 67
  248. BorderSpacing.Around = 2
  249. Caption = 'Range'
  250. DragCursor = crDefault
  251. TabOrder = 4
  252. end
  253. object rbAllPage: TRadioButton
  254. Left = 8
  255. Height = 24
  256. Top = 0
  257. Width = 47
  258. Caption = 'All '
  259. Checked = True
  260. DragCursor = crDefault
  261. TabOrder = 3
  262. TabStop = True
  263. end
  264. object rbSelection: TRadioButton
  265. AnchorSideTop.Control = rbCurrentPage
  266. AnchorSideTop.Side = asrBottom
  267. Left = 8
  268. Height = 24
  269. Top = 52
  270. Width = 88
  271. BorderSpacing.Around = 2
  272. Caption = 'Selection'
  273. DragCursor = crDefault
  274. Enabled = False
  275. TabOrder = 5
  276. end
  277. end
  278. object gbCopies: TGroupBox
  279. AnchorSideLeft.Control = gbPages
  280. AnchorSideLeft.Side = asrBottom
  281. AnchorSideRight.Control = pgCopies
  282. AnchorSideRight.Side = asrBottom
  283. AnchorSideBottom.Control = pgCopies
  284. AnchorSideBottom.Side = asrBottom
  285. Left = 276
  286. Height = 173
  287. Top = 7
  288. Width = 265
  289. Anchors = [akTop, akLeft, akRight, akBottom]
  290. BorderSpacing.Around = 6
  291. Caption = ' Copies '
  292. ClientHeight = 154
  293. ClientWidth = 261
  294. TabOrder = 1
  295. object imgCollate: TImage
  296. AnchorSideTop.Control = lanNumCopies
  297. AnchorSideTop.Side = asrBottom
  298. Left = 6
  299. Height = 37
  300. Top = 29
  301. Width = 93
  302. AutoSize = True
  303. BorderSpacing.Top = 6
  304. Proportional = True
  305. end
  306. object lanNumCopies: TLabel
  307. Left = 6
  308. Height = 17
  309. Top = 6
  310. Width = 120
  311. Caption = 'Number of copies'
  312. ParentColor = False
  313. end
  314. object edCopies: TSpinEdit
  315. AnchorSideLeft.Control = lanNumCopies
  316. AnchorSideLeft.Side = asrBottom
  317. AnchorSideTop.Control = lanNumCopies
  318. AnchorSideTop.Side = asrCenter
  319. Left = 132
  320. Height = 27
  321. Top = 1
  322. Width = 60
  323. BorderSpacing.Left = 6
  324. TabOrder = 0
  325. end
  326. object cbCollate: TCheckBox
  327. AnchorSideTop.Control = edCopies
  328. AnchorSideTop.Side = asrBottom
  329. Left = 119
  330. Height = 24
  331. Top = 34
  332. Width = 74
  333. AllowGrayed = True
  334. BorderSpacing.Around = 6
  335. Caption = 'Collate'
  336. DragCursor = crDefault
  337. OnClick = cbReverseCLICK
  338. TabOrder = 2
  339. end
  340. object cbReverse: TCheckBox
  341. AnchorSideTop.Control = cbCollate
  342. AnchorSideTop.Side = asrBottom
  343. Left = 119
  344. Height = 24
  345. Top = 64
  346. Width = 79
  347. AllowGrayed = True
  348. BorderSpacing.Around = 6
  349. Caption = 'Reverse'
  350. DragCursor = crDefault
  351. OnClick = cbReverseCLICK
  352. TabOrder = 1
  353. end
  354. end
  355. end
  356. object pgAdvance: TTabSheet
  357. Caption = 'Advanced'
  358. ClientHeight = 186
  359. ClientWidth = 547
  360. object labTask: TLabel
  361. Left = 7
  362. Height = 14
  363. Top = 10
  364. Width = 63
  365. Caption = 'Delayed task'
  366. ParentColor = False
  367. end
  368. object PrioLabel: TLabel
  369. AnchorSideTop.Control = labTask
  370. AnchorSideTop.Side = asrBottom
  371. Left = 7
  372. Height = 14
  373. Top = 50
  374. Width = 35
  375. BorderSpacing.Top = 20
  376. BorderSpacing.Around = 6
  377. Caption = 'Priority'
  378. ParentColor = False
  379. end
  380. object cbTasktime: TComboBox
  381. Left = 215
  382. Height = 21
  383. Top = 7
  384. Width = 200
  385. ItemHeight = 0
  386. ItemIndex = 0
  387. Items.Strings = (
  388. 'Immediate'
  389. 'Never (suspending)'
  390. 'during the day'
  391. 'evening'
  392. 'night'
  393. 'Weekend'
  394. 'After close of business'
  395. 'After midnight'
  396. 'At time'
  397. )
  398. OnChange = cbTasktimeCHANGE
  399. OnKeyPress = cbPrintersKEYPRESS
  400. Style = csDropDownList
  401. TabOrder = 1
  402. Text = 'Immediate'
  403. end
  404. object edTimeTask: TEdit
  405. Left = 423
  406. Height = 21
  407. Top = 9
  408. Width = 83
  409. DragCursor = crDefault
  410. MaxLength = 8
  411. TabOrder = 0
  412. Text = '23:00:00'
  413. end
  414. object edPriority: TSpinEdit
  415. AnchorSideTop.Control = PrioLabel
  416. AnchorSideTop.Side = asrCenter
  417. Left = 127
  418. Height = 21
  419. Top = 47
  420. Width = 50
  421. TabOrder = 3
  422. end
  423. object tkbPriority: TTrackBar
  424. AnchorSideLeft.Control = edPriority
  425. AnchorSideLeft.Side = asrBottom
  426. AnchorSideTop.Control = PrioLabel
  427. AnchorSideTop.Side = asrCenter
  428. AnchorSideRight.Control = pgAdvance
  429. AnchorSideRight.Side = asrBottom
  430. Left = 183
  431. Height = 38
  432. Top = 38
  433. Width = 320
  434. Frequency = 10
  435. Max = 100
  436. OnChange = tkbPriorityCHANGE
  437. Position = 10
  438. TabStop = False
  439. TickMarks = tmBoth
  440. BorderSpacing.Around = 6
  441. DragCursor = crDefault
  442. TabOrder = 2
  443. end
  444. end
  445. end
  446. object BtnPanel: TPanel
  447. Left = 0
  448. Height = 41
  449. Top = 400
  450. Width = 563
  451. Align = alBottom
  452. Anchors = [akLeft, akBottom]
  453. AutoSize = True
  454. BevelOuter = bvNone
  455. ClientHeight = 41
  456. ClientWidth = 563
  457. FullRepaint = False
  458. TabOrder = 2
  459. TabStop = True
  460. object btnCancel: TButton
  461. Left = 477
  462. Height = 29
  463. Top = 6
  464. Width = 80
  465. Align = alRight
  466. AutoSize = True
  467. BorderSpacing.Around = 6
  468. Cancel = True
  469. Caption = 'Cancel'
  470. Constraints.MinWidth = 80
  471. ModalResult = 2
  472. TabOrder = 0
  473. end
  474. object btnPrint: TButton
  475. Left = 391
  476. Height = 29
  477. Top = 6
  478. Width = 80
  479. Align = alRight
  480. AutoSize = True
  481. BorderSpacing.Around = 6
  482. Caption = 'Print'
  483. Constraints.MinWidth = 80
  484. Default = True
  485. ModalResult = 1
  486. OnClick = btnPrintCLICK
  487. TabOrder = 1
  488. end
  489. object btnReduc: TButton
  490. Left = 6
  491. Height = 29
  492. Top = 6
  493. Width = 80
  494. Align = alLeft
  495. AutoSize = True
  496. BorderSpacing.Around = 6
  497. Caption = 'More ...'
  498. Constraints.MinWidth = 80
  499. OnClick = btnReducCLICK
  500. TabOrder = 2
  501. end
  502. object btnPreview: TButton
  503. Left = 305
  504. Height = 29
  505. Top = 6
  506. Width = 80
  507. Align = alRight
  508. AutoSize = True
  509. BorderSpacing.Around = 6
  510. Caption = 'Preview'
  511. Constraints.MinWidth = 80
  512. ModalResult = 6
  513. TabOrder = 3
  514. end
  515. end
  516. object panLabels: TPanel
  517. Left = 6
  518. Height = 22
  519. Top = 149
  520. Width = 551
  521. Align = alTop
  522. BorderSpacing.Around = 6
  523. BevelOuter = bvNone
  524. ClientHeight = 22
  525. ClientWidth = 551
  526. TabOrder = 3
  527. object labCUPS: TLabel
  528. AnchorSideTop.Side = asrBottom
  529. Left = 8
  530. Height = 17
  531. Top = 3
  532. Width = 251
  533. Caption = 'CUPS (Common Unix Printing System)'
  534. ParentColor = False
  535. end
  536. object labCUPSServer: TLabel
  537. AnchorSideLeft.Control = labCUPS
  538. AnchorSideLeft.Side = asrBottom
  539. Left = 265
  540. Height = 17
  541. Top = 3
  542. Width = 100
  543. BorderSpacing.Around = 6
  544. Caption = 'labCUPSServer'
  545. ParentColor = False
  546. end
  547. end
  548. end