/components/printers/unix/udlgselectprinter.lfm
Unknown | 548 lines | 548 code | 0 blank | 0 comment | 0 complexity | c34f0b19c6b536580c583f297468fa33 MD5 | raw file
1object 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 548end