/components/lazreport/samples/editor/maincalleditor.lfm
Unknown | 644 lines | 644 code | 0 blank | 0 comment | 0 complexity | d18c6ff56fbfdf9789244589f18e5d97 MD5 | raw file
1object frmMain: TfrmMain 2 Left = 98 3 Height = 545 4 Top = 111 5 Width = 828 6 ActiveControl = Panel1 7 Caption = 'LazReport Test Suite' 8 ClientHeight = 525 9 ClientWidth = 828 10 Font.Name = 'Sans' 11 Menu = MainMenu1 12 OnCloseQuery = FormCloseQuery 13 OnCreate = frmMainCreate 14 ShowHint = True 15 LCLVersion = '1.7' 16 object lblIndex: TLabel 17 AnchorSideLeft.Control = Owner 18 AnchorSideBottom.Control = grid 19 Left = 6 20 Height = 18 21 Top = 98 22 Width = 36 23 Anchors = [akLeft, akBottom] 24 BorderSpacing.Around = 6 25 Caption = 'Index' 26 ParentColor = False 27 end 28 object lblExpr: TLabel 29 AnchorSideRight.Control = Owner 30 AnchorSideRight.Side = asrBottom 31 AnchorSideBottom.Control = grid 32 Left = 744 33 Height = 18 34 Top = 98 35 Width = 78 36 Anchors = [akRight, akBottom] 37 BorderSpacing.Around = 6 38 Caption = 'Expression' 39 ParentColor = False 40 end 41 object sbar: TStatusBar 42 Left = 0 43 Height = 23 44 Top = 502 45 Width = 828 46 Panels = < 47 item 48 Width = 250 49 end> 50 SimplePanel = False 51 end 52 object comboIndex: TComboBox 53 AnchorSideLeft.Control = lblIndex 54 AnchorSideLeft.Side = asrBottom 55 AnchorSideTop.Control = Panel1 56 AnchorSideTop.Side = asrBottom 57 AnchorSideRight.Control = lblExpr 58 AnchorSideBottom.Control = grid 59 Left = 48 60 Height = 26 61 Top = 90 62 Width = 690 63 Anchors = [akTop, akLeft, akRight] 64 BorderSpacing.Around = 6 65 ItemHeight = 18 66 OnSelect = comboIndexSelect 67 TabOrder = 2 68 end 69 object mastergrid: TDBGrid 70 AnchorSideLeft.Control = Owner 71 AnchorSideTop.Control = comboIndex 72 AnchorSideTop.Side = asrBottom 73 AnchorSideRight.Control = grid 74 AnchorSideBottom.Control = sbar 75 Left = 0 76 Height = 380 77 Top = 122 78 Width = 204 79 Anchors = [akTop, akLeft, akBottom] 80 Color = clMoneyGreen 81 Columns = <> 82 DataSource = srcMaster 83 TabOrder = 3 84 TitleFont.Name = 'Sans' 85 Visible = False 86 end 87 object grid: TDBGrid 88 AnchorSideLeft.Control = Owner 89 AnchorSideTop.Control = comboIndex 90 AnchorSideTop.Side = asrBottom 91 AnchorSideRight.Control = Owner 92 AnchorSideRight.Side = asrBottom 93 AnchorSideBottom.Control = sbar 94 Left = 0 95 Height = 380 96 Top = 122 97 Width = 828 98 Anchors = [akTop, akLeft, akRight, akBottom] 99 Color = clWhite 100 Columns = <> 101 DataSource = srcDetail 102 Font.Name = 'Sans' 103 Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] 104 ParentFont = False 105 TabOrder = 0 106 TitleFont.Name = 'Sans' 107 OnTitleClick = gridTitleClick 108 end 109 object Panel1: TPanel 110 Left = 0 111 Height = 84 112 Top = 0 113 Width = 828 114 Align = alTop 115 BevelOuter = bvNone 116 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 117 ChildSizing.EnlargeVertical = crsHomogenousChildResize 118 ChildSizing.Layout = cclLeftToRightThenTopToBottom 119 ChildSizing.ControlsPerLine = 6 120 ClientHeight = 84 121 ClientWidth = 828 122 TabOrder = 4 123 object btnNewReport: TButton 124 Left = 6 125 Height = 33 126 Top = 6 127 Width = 116 128 Action = accNewReport 129 AutoSize = True 130 BorderSpacing.Around = 6 131 TabOrder = 0 132 end 133 object btnOpenReport: TButton 134 Left = 128 135 Height = 33 136 Top = 6 137 Width = 123 138 Action = accOpenReport 139 AutoSize = True 140 BorderSpacing.Around = 6 141 TabOrder = 2 142 end 143 object btnEditReport: TButton 144 Left = 257 145 Height = 33 146 Top = 6 147 Width = 113 148 Action = accEditReport 149 AutoSize = True 150 BorderSpacing.Around = 6 151 TabOrder = 3 152 end 153 object btnPreviewReport: TButton 154 Left = 376 155 Height = 33 156 Top = 6 157 Width = 156 158 Action = accPreviewReport 159 AutoSize = True 160 BorderSpacing.Around = 6 161 TabOrder = 4 162 end 163 object btnPrintReport: TButton 164 Left = 538 165 Height = 33 166 Top = 6 167 Width = 134 168 Action = accPrintReport 169 AutoSize = True 170 BorderSpacing.Around = 6 171 TabOrder = 5 172 end 173 object btnCustomPreview: TButton 174 Left = 678 175 Height = 33 176 Top = 6 177 Width = 144 178 Action = accCustomPreview 179 AutoSize = True 180 BorderSpacing.Around = 6 181 TabOrder = 1 182 end 183 object btnPrintGrid: TButton 184 AnchorSideRight.Side = asrBottom 185 Left = 6 186 Height = 33 187 Top = 45 188 Width = 116 189 Action = accPrintGrid 190 AutoSize = True 191 BorderSpacing.Around = 6 192 TabOrder = 6 193 end 194 object btnComposite: TButton 195 AnchorSideTop.Side = asrBottom 196 Left = 128 197 Height = 33 198 Top = 45 199 Width = 123 200 Action = accComposite 201 AutoSize = True 202 BorderSpacing.Around = 6 203 TabOrder = 8 204 end 205 object btnImageList: TButton 206 AnchorSideTop.Side = asrBottom 207 AnchorSideRight.Side = asrBottom 208 Left = 257 209 Height = 33 210 Top = 45 211 Width = 113 212 Action = accThumbnails 213 AutoSize = True 214 BorderSpacing.Around = 6 215 TabOrder = 7 216 end 217 object btnMasterDetail: TToggleBox 218 Left = 376 219 Height = 33 220 Top = 45 221 Width = 156 222 AutoSize = True 223 BorderSpacing.Around = 6 224 Caption = 'Master-Detail Test' 225 OnClick = btnMasterDetailClick 226 TabOrder = 9 227 end 228 object btnExportLast: TButton 229 Left = 538 230 Height = 33 231 Top = 45 232 Width = 134 233 Caption = 'Repeat Export' 234 OnClick = btnExportLastClick 235 TabOrder = 10 236 end 237 end 238 object TheReport: TfrReport 239 Dataset = frDbDetail 240 DefaultCopies = 0 241 InitialZoom = pzDefault 242 Options = [roIgnoreFieldNotFound] 243 PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] 244 DataType = dtDataSet 245 OnBeginDoc = TheReportBeginDoc 246 OnGetValue = TheReportGetValue 247 OnEnterRect = TheReportEnterRect 248 OnUserFunction = TheReportUserFunction 249 OnExportFilterSetup = TheReportExportFilterSetup 250 left = 40 251 top = 192 252 end 253 object Detail: TDbf 254 IndexDefs = <> 255 TableName = 'disco.dbf' 256 TableLevel = 3 257 FilterOptions = [] 258 left = 184 259 top = 192 260 object DetailAUTHOR: TStringField 261 DisplayWidth = 20 262 FieldKind = fkData 263 FieldName = 'AUTHOR' 264 Index = 0 265 LookupCache = False 266 ProviderFlags = [pfInUpdate, pfInWhere] 267 ReadOnly = False 268 Required = False 269 end 270 object DetailTITLE: TStringField 271 DisplayWidth = 30 272 FieldKind = fkData 273 FieldName = 'TITLE' 274 Index = 1 275 LookupCache = False 276 ProviderFlags = [pfInUpdate, pfInWhere] 277 ReadOnly = False 278 Required = False 279 Size = 30 280 end 281 object DetailCOMPANY1: TStringField 282 DisplayLabel = 'COMPANY' 283 DisplayWidth = 12 284 FieldKind = fkLookup 285 FieldName = 'COMPANY1' 286 Index = 2 287 KeyFields = 'COMPANYID' 288 LookupCache = False 289 LookupDataSet = LookCompanies 290 LookupKeyFields = 'COMPANYID' 291 LookupResultField = 'COMPANY' 292 ProviderFlags = [pfInUpdate, pfInWhere] 293 ReadOnly = False 294 Required = False 295 Size = 12 296 end 297 object DetailCOUNTRY1: TStringField 298 DisplayLabel = 'COUNTRY' 299 DisplayWidth = 3 300 FieldKind = fkLookup 301 FieldName = 'COUNTRY1' 302 Index = 3 303 KeyFields = 'COUNTRYID' 304 LookupCache = False 305 LookupDataSet = LookCountries 306 LookupKeyFields = 'COUNTRYID' 307 LookupResultField = 'COUNTRY' 308 ProviderFlags = [pfInUpdate, pfInWhere] 309 ReadOnly = False 310 Required = False 311 Size = 3 312 end 313 object DetailYEAR: TSmallintField 314 DisplayWidth = 10 315 FieldKind = fkData 316 FieldName = 'YEAR' 317 Index = 4 318 LookupCache = False 319 ProviderFlags = [pfInUpdate, pfInWhere] 320 ReadOnly = False 321 Required = False 322 end 323 object DetailPRICE: TFloatField 324 DisplayWidth = 10 325 FieldKind = fkData 326 FieldName = 'PRICE' 327 Index = 5 328 LookupCache = False 329 ProviderFlags = [pfInUpdate, pfInWhere] 330 ReadOnly = False 331 Required = False 332 MaxValue = 0 333 MinValue = 0 334 Precision = 2 335 end 336 object DetailNOTE: TStringField 337 DisplayWidth = 5 338 FieldKind = fkData 339 FieldName = 'NOTE' 340 Index = 6 341 LookupCache = False 342 ProviderFlags = [pfInUpdate, pfInWhere] 343 ReadOnly = False 344 Required = False 345 Size = 5 346 end 347 object DetailQTY: TSmallintField 348 DisplayWidth = 10 349 FieldKind = fkData 350 FieldName = 'QTY' 351 Index = 7 352 LookupCache = False 353 ProviderFlags = [pfInUpdate, pfInWhere] 354 ReadOnly = False 355 Required = False 356 end 357 object DetailLAST_SELL: TDateField 358 DisplayWidth = 10 359 FieldKind = fkData 360 FieldName = 'LAST_SELL' 361 Index = 8 362 LookupCache = False 363 ProviderFlags = [pfInUpdate, pfInWhere] 364 ReadOnly = False 365 Required = False 366 end 367 object DetailIN_STOCK: TBooleanField 368 DisplayWidth = 5 369 FieldKind = fkData 370 FieldName = 'IN_STOCK' 371 Index = 9 372 LookupCache = False 373 ProviderFlags = [pfInUpdate, pfInWhere] 374 ReadOnly = False 375 Required = False 376 DisplayValues = 'True;False' 377 end 378 object DetailCOMPANYID: TLongintField 379 DisplayWidth = 10 380 FieldKind = fkData 381 FieldName = 'COMPANYID' 382 Index = 10 383 LookupCache = False 384 ProviderFlags = [pfInUpdate, pfInWhere] 385 ReadOnly = False 386 Required = False 387 Visible = False 388 end 389 object DetailCOUNTRYID: TLongintField 390 DisplayWidth = 10 391 FieldKind = fkData 392 FieldName = 'COUNTRYID' 393 Index = 11 394 LookupCache = False 395 ProviderFlags = [pfInUpdate, pfInWhere] 396 ReadOnly = False 397 Required = False 398 Visible = False 399 end 400 end 401 object srcDetail: TDataSource 402 DataSet = Detail 403 left = 184 404 top = 248 405 end 406 object frDbDetail: TfrDBDataSet 407 DataSet = Detail 408 left = 112 409 top = 192 410 end 411 object PrintGrid: TFrPrintGrid 412 DBGrid = grid 413 Orientation = poLandscape 414 Font.Name = 'Sans' 415 TitleFont.Name = 'Sans' 416 Caption = 'Grid' 417 PrinterIndex = -1 418 ShowCaption = True 419 left = 352 420 top = 248 421 end 422 object MainMenu1: TMainMenu 423 left = 112 424 top = 96 425 object MenuItem1: TMenuItem 426 Caption = 'Files' 427 object MenuItem2: TMenuItem 428 Action = accClose 429 OnClick = accCloseExecute 430 end 431 end 432 object MenuItem3: TMenuItem 433 Caption = 'Tests' 434 object MenuItem4: TMenuItem 435 Action = accNewReport 436 OnClick = accNewReportExecute 437 end 438 object MenuItem5: TMenuItem 439 Action = accEditReport 440 OnClick = accEditReportExecute 441 end 442 object MenuItem6: TMenuItem 443 Action = accPreviewReport 444 OnClick = accPreviewReportExecute 445 end 446 object MenuItem7: TMenuItem 447 Action = accPrintReport 448 OnClick = accPrintReportExecute 449 end 450 object MenuItem8: TMenuItem 451 Action = accPrintGrid 452 OnClick = accPrintGridExecute 453 end 454 object MenuItem14: TMenuItem 455 Action = accThumbnails 456 OnClick = accThumbnailsExecute 457 end 458 object MenuItem15: TMenuItem 459 Action = accComposite 460 OnClick = accCompositeExecute 461 end 462 end 463 object MenuItem9: TMenuItem 464 Caption = 'Export' 465 object MenuItem10: TMenuItem 466 Action = accExportToText 467 OnClick = accExportToTextExecute 468 end 469 object MenuItem11: TMenuItem 470 Action = accExportToHtml 471 OnClick = accExportToHtmlExecute 472 end 473 object MenuItem12: TMenuItem 474 Action = accExportToCSV 475 OnClick = accExportToCSVExecute 476 end 477 object MenuItem13: TMenuItem 478 Action = accExportToDbg 479 OnClick = accExportToDbgExecute 480 end 481 end 482 end 483 object ApplicationProperties1: TApplicationProperties 484 HintPause = 10 485 OnShowHint = ApplicationProperties1ShowHint 486 left = 500 487 top = 160 488 end 489 object ActionList1: TActionList 490 left = 48 491 top = 96 492 object accNewReport: TAction 493 Category = 'Tests' 494 Caption = 'New Report' 495 OnExecute = accNewReportExecute 496 end 497 object accEditReport: TAction 498 Category = 'Tests' 499 Caption = 'Edit Report' 500 OnExecute = accEditReportExecute 501 end 502 object accPreviewReport: TAction 503 Category = 'Tests' 504 Caption = 'Preview Report' 505 OnExecute = accPreviewReportExecute 506 end 507 object accPrintGrid: TAction 508 Category = 'Tests' 509 Caption = 'Print Grid' 510 OnExecute = accPrintGridExecute 511 end 512 object accPrintReport: TAction 513 Category = 'Tests' 514 Caption = 'Print Report' 515 OnExecute = accPrintReportExecute 516 end 517 object accClose: TAction 518 Category = 'Files' 519 Caption = 'Close' 520 OnExecute = accCloseExecute 521 end 522 object accExportToText: TAction 523 Category = 'Export' 524 Caption = 'Export to text' 525 OnExecute = accExportToTextExecute 526 end 527 object accExportToHtml: TAction 528 Category = 'Export' 529 Caption = 'Export to html' 530 OnExecute = accExportToHtmlExecute 531 end 532 object accOpenReport: TAction 533 Category = 'Files' 534 Caption = 'Open Report' 535 OnExecute = accOpenReportExecute 536 end 537 object accExportToCSV: TAction 538 Category = 'Export' 539 Caption = 'Export to CSV' 540 OnExecute = accExportToCSVExecute 541 end 542 object accThumbnails: TAction 543 Category = 'Sample Reports' 544 Caption = 'Thumbnails' 545 OnExecute = accThumbnailsExecute 546 end 547 object accExportToDbg: TAction 548 Category = 'Export' 549 Caption = 'Export Debug' 550 OnExecute = accExportToDbgExecute 551 end 552 object accComposite: TAction 553 Category = 'Sample Reports' 554 Caption = 'Composite' 555 OnExecute = accCompositeExecute 556 end 557 object accCustomPreview: TAction 558 Category = 'Tests' 559 Caption = 'Custom Preview' 560 OnExecute = accCustomPreviewExecute 561 end 562 end 563 object OpenDialog1: TOpenDialog 564 Filter = 'LazReport Files|*.lrf|FreeReport Files|*.frf|All Files|*.*' 565 FilterIndex = 0 566 left = 572 567 top = 160 568 end 569 object frCSVExport1: TfrCSVExport 570 left = 352 571 top = 192 572 end 573 object frUserDataset1: TfrUserDataset 574 RangeEnd = reCount 575 left = 112 576 top = 248 577 end 578 object frBarCodeObject1: TfrBarCodeObject 579 left = 272 580 top = 192 581 end 582 object frRoundRectObject1: TfrRoundRectObject 583 left = 272 584 top = 248 585 end 586 object frShapeObject1: TfrShapeObject 587 left = 272 588 top = 304 589 end 590 object frCheckBoxObject1: TfrCheckBoxObject 591 left = 272 592 top = 360 593 end 594 object Composite: TfrCompositeReport 595 DefaultCopies = 0 596 InitialZoom = pzDefault 597 Options = [] 598 PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] 599 DataType = dtDataSet 600 left = 40 601 top = 248 602 end 603 object LookCountries: TDbf 604 IndexDefs = <> 605 TableName = 'countries.dbf' 606 TableLevel = 3 607 FilterOptions = [] 608 left = 184 609 top = 72 610 end 611 object LookCompanies: TDbf 612 IndexDefs = <> 613 TableName = 'companies.dbf' 614 TableLevel = 3 615 FilterOptions = [] 616 left = 184 617 top = 128 618 end 619 object master: TDbf 620 IndexDefs = <> 621 TableLevel = 4 622 FilterOptions = [] 623 left = 184 624 top = 312 625 end 626 object srcMaster: TDataSource 627 DataSet = master 628 left = 184 629 top = 368 630 end 631 object frDbMaster: TfrDBDataSet 632 DataSet = master 633 left = 112 634 top = 312 635 end 636 object frHtmlDivExport1: TfrHtmlDivExport 637 left = 500 638 top = 228 639 end 640 object lrAddFunctionLibrary1: TlrAddFunctionLibrary 641 left = 500 642 top = 301 643 end 644end