PageRenderTime 69ms CodeModel.GetById 61ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/components/lazreport/samples/editor/maincalleditor.lfm

http://github.com/graemeg/lazarus
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