home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
REPDEM08.DFM
/
REPDEM08.txt
Wrap
Text File
|
1996-12-03
|
4KB
|
185 lines
object dem08form: Tdem08form
Left = 37
Top = 218
Width = 613
Height = 409
ActiveControl = Panel1
Caption = 'dem08form'
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 605
Height = 89
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 20
Top = 12
Width = 370
Height = 19
Caption = 'This is a Demo of the TPrintGridReport Component'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 20
Top = 36
Width = 260
Height = 19
Caption = 'and SubTotals and Calcutated fields'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 20
Top = 60
Width = 415
Height = 19
Caption = 'Note: The printer is forced to print Landscape Orientation'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Preview: TBitBtn
Left = 420
Top = 12
Width = 109
Height = 29
Caption = 'Pre&View'
TabOrder = 0
OnClick = PreviewClick
end
object Exit: TBitBtn
Left = 440
Top = 44
Width = 89
Height = 33
Caption = '&Exit'
ModalResult = 1
TabOrder = 1
end
end
object Panel2: TPanel
Left = 0
Top = 89
Width = 605
Height = 293
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 6
Top = 6
Width = 593
Height = 281
Align = alClient
BorderStyle = bsNone
DataSource = DataSource1
Font.Color = clPurple
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Color = clBlue
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleFont.Style = [fsBold]
end
end
object Query1: TQuery
Active = True
DatabaseName = 'DBDEMOS'
SQL.Strings = (
'Select * from country order by continent')
Left = 260
Top = 5
end
object DataSource1: TDataSource
DataSet = Query1
Left = 287
Top = 5
end
object PrintGridReport1: TPrintGridReport
About = 'Version 5.32'
AboutRegistered = 'TOM SNIDER'
ViewButtonVisible = False
Copies = 1
OutputTo = poViewer
Orientation = Default
ViewBkColor = 11234567
Units = poInches
ViewHeading = 'Reportit Viewer'
FooterFont.Color = clWindowText
FooterFont.Height = 12
FooterFont.Name = 'Arial'
FooterFont.Style = []
HeaderFont.Color = clWindowText
HeaderFont.Height = 16
HeaderFont.Name = 'Arial'
HeaderFont.Style = []
ViewerOptions = []
SubTotalString = '** Total of @RecCount Countries **'
TotalString = '*** Total of all @RecCount Countries ***'
ZoomPercentage = 100.000000000000000000
HeaderTop = 0.500000000000000000
HeaderStringCenter = 'Page Header'
HeaderEnabled = True
HeaderOutlined = True
HeaderFilled = False
FooterTop = 9.250000000000000000
FooterString = 'Page Footer'
FooterEnabled = True
FooterOutlined = True
FooterFilled = True
FooterStringLeft = 'Printed on @Date at @Time'
FooterStringRight = 'Page @Page'
DisableControls = True
BorderLeft = 0.250000000000000000
BorderRight = 0.250000000000000000
GridHeadingRow = 1.500000000000000000
GridHeadingCol = 0.250000000000000000
GridHeadingEnabled = True
GridHeadingOutlined = True
GridHeadingFilled = False
GridLines = True
LineSpacing = 1.500000000000000000
Grid = DBGrid1
GridMinWidth = True
GridCentered = True
GridPrintTotal = True
PrintSubTotals = True
FrameStyleLeft = frSingleThin
FrameStyleTop = frSingleThin
FrameStyleRight = frSingleThin
FrameStyleBottom = frSingleThin
ReportStyle = rsMiddle
Left = 352
Top = 36
end
end