File: unit1.lfm

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (82 lines) | stat: -rw-r--r-- 1,945 bytes parent folder | download | duplicates (10)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
object Form1: TForm1
  Left = 238
  Height = 88
  Top = 116
  Width = 400
  HorzScrollBar.Page = 399
  VertScrollBar.Page = 87
  ActiveControl = btnShowReport
  Caption = 'LazReport UserDataser Demo'
  ClientHeight = 88
  ClientWidth = 400
  OnCreate = FormCreate
  Position = poDesktopCenter
  LCLVersion = '0.9.31'
  object btnShowReport: TButton
    Left = 64
    Height = 25
    Top = 20
    Width = 126
    BorderSpacing.InnerBorder = 4
    Caption = 'Show Report'
    OnClick = btnShowReportClick
    TabOrder = 0
  end
  object Button1: TButton
    Left = 200
    Height = 25
    Top = 20
    Width = 136
    BorderSpacing.InnerBorder = 4
    Caption = 'Design Report'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Button2: TButton
    Left = 108
    Height = 25
    Top = 56
    Width = 184
    BorderSpacing.InnerBorder = 4
    Caption = 'Show Notes of this Sample'
    OnClick = Button2Click
    TabOrder = 2
  end
  object MasterDS: TfrUserDataset
    OnCheckEOF = MasterDSCheckEOF
    OnFirst = MasterDSFirst
    OnNext = MasterDSNext
    left = 8
    top = 56
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    Options = []
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    DataType = dtDataSet
    OnBeginDoc = frReport1BeginDoc
    OnEndDoc = frReport1EndDoc
    OnBeginPage = frReport1BeginPage
    OnEndPage = frReport1EndPage
    OnBeginBand = frReport1BeginBand
    OnEndBand = frReport1EndBand
    OnGetValue = frReport1GetValue
    OnEnterRect = frReport1EnterRect
    OnUserFunction = frReport1UserFunction
    OnProgress = frReport1Progress
    OnBeginColumn = frReport1BeginColumn
    OnPrintColumn = frReport1PrintColumn
    left = 80
    top = 56
    ReportForm = {
      19000000
    }
  end
  object ColumnsDS: TfrUserDataset
    OnCheckEOF = ColumnsDSCheckEOF
    OnFirst = ColumnsDSFirst
    OnNext = ColumnsDSNext
    left = 40
    top = 56
  end
end