You've already forked lazarus-ccr
3a6f3503fe
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8626 8e941d3f-bd1b-0410-a28a-d453659cc2b4
135 lines
3.4 KiB
Plaintext
135 lines
3.4 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 331
|
|
Height = 498
|
|
Top = 129
|
|
Width = 719
|
|
Caption = 'Printing a TsWorksheetGrid'
|
|
ClientHeight = 498
|
|
ClientWidth = 719
|
|
OnCreate = FormCreate
|
|
LCLVersion = '2.3.0.0'
|
|
object ButtonPanel: TPanel
|
|
Left = 6
|
|
Height = 25
|
|
Top = 467
|
|
Width = 707
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 25
|
|
ClientWidth = 707
|
|
TabOrder = 1
|
|
object btnPrint: TButton
|
|
AnchorSideLeft.Control = btnOpenFile
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = ButtonPanel
|
|
Left = 89
|
|
Height = 25
|
|
Top = 0
|
|
Width = 75
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Print...'
|
|
OnClick = btnPrintClick
|
|
TabOrder = 1
|
|
end
|
|
object btnPreview: TButton
|
|
AnchorSideLeft.Control = btnPrint
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = ButtonPanel
|
|
Left = 170
|
|
Height = 25
|
|
Top = 0
|
|
Width = 75
|
|
BorderSpacing.Left = 6
|
|
Caption = 'Preview...'
|
|
OnClick = btnPreviewClick
|
|
TabOrder = 2
|
|
end
|
|
object btnOpenFile: TButton
|
|
AnchorSideLeft.Control = ButtonPanel
|
|
AnchorSideTop.Control = ButtonPanel
|
|
Left = 0
|
|
Height = 25
|
|
Top = 0
|
|
Width = 83
|
|
AutoSize = True
|
|
Caption = 'Open file...'
|
|
OnClick = btnOpenFileClick
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object sWorkbookTabControl1: TsWorkbookTabControl
|
|
Left = 6
|
|
Height = 446
|
|
Top = 6
|
|
Width = 707
|
|
TabPosition = tpBottom
|
|
TabIndex = 0
|
|
Tabs.Strings = (
|
|
'Sheet1'
|
|
)
|
|
Align = alClient
|
|
BorderSpacing.Around = 6
|
|
TabOrder = 0
|
|
WorkbookSource = sWorkbookSource1
|
|
object sWorksheetGrid1: TsWorksheetGrid
|
|
Left = 2
|
|
Height = 421
|
|
Top = 2
|
|
Width = 703
|
|
FrozenCols = 0
|
|
FrozenRows = 0
|
|
PageBreakPen.Color = clBlue
|
|
PageBreakPen.Style = psDash
|
|
ReadFormulas = False
|
|
WorkbookSource = sWorkbookSource1
|
|
Align = alClient
|
|
AutoAdvance = aaDown
|
|
DefaultColWidth = 64
|
|
DefaultRowHeight = 22
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 0
|
|
Height = 3
|
|
Top = 458
|
|
Width = 719
|
|
Align = alBottom
|
|
Shape = bsBottomLine
|
|
end
|
|
object GridPrinter1: TGridPrinter
|
|
Grid = sWorksheetGrid1
|
|
Footer.Font.Height = -11
|
|
Footer.FontSize = 8
|
|
Header.Font.Height = -11
|
|
Header.FontSize = 8
|
|
ShowPrintDialog = gpdPrintDialog
|
|
OnAfterPrint = GridPrinter1AfterPrint
|
|
OnBeforePrint = GridPrinter1BeforePrint
|
|
OnGetRowCount = GridPrinter1GetRowCount
|
|
OnGetColCount = GridPrinter1GetColCount
|
|
OnPrintCell = GridPrinter1PrintCell
|
|
Left = 231
|
|
Top = 142
|
|
end
|
|
object GridPrintPreviewDialog1: TGridPrintPreviewDialog
|
|
FormParams.PixelsPerInch = 96
|
|
GridPrinter = GridPrinter1
|
|
Left = 448
|
|
Top = 142
|
|
end
|
|
object sWorkbookSource1: TsWorkbookSource
|
|
FileFormat = sfUser
|
|
Options = []
|
|
Left = 112
|
|
Top = 142
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
Filter = 'All spreadsheet files|*.xls;*.xlsx;*.ods;*.csv|All Excel files (*.xls, *.xlsx)|*.xls;*.xlsx|Excel XML spreadsheet (*.xlsx)|*.xlsx|Excel XP/2003 XML spreadsheet (*.xml)|*.xml|Excel 97-2003 spreadsheets (*.xls)|*.xls|Excel 5 spreadsheet (*.xls)|*.xls|Excel 2.1 spreadsheets (*.xls)|*.xls|LibreOffice/OpenOffice spreadsheet (*.ods)|*.ods|HTML files (*.html; *.htm)|*.html;*.htm|Comma-separated text files (*.csv; *.txt)|*.csv;*.txt'
|
|
Left = 230
|
|
Top = 248
|
|
end
|
|
end
|