Files
lazarus-ccr/components/gridprinter/examples/multi-language/main.lfm
2022-11-11 22:59:52 +00:00

163 lines
4.0 KiB
Plaintext

object MainForm: TMainForm
Left = 331
Height = 491
Top = 127
Width = 656
Caption = 'Multi-Language Demonstration of TGridPrinter'
ClientHeight = 491
ClientWidth = 656
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object StringGrid1: TStringGrid
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnPrint
Left = 8
Height = 411
Top = 39
Width = 640
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 8
ColCount = 6
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goSmoothScroll, goCellEllipsis]
RowCount = 6
TabOrder = 0
end
object btnPrint: TButton
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 25
Top = 458
Width = 60
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 8
Caption = 'Print...'
OnClick = btnPrintClick
TabOrder = 1
end
object btnPreview: TButton
AnchorSideLeft.Control = cmbDialogs
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint
Left = 264
Height = 25
Top = 458
Width = 76
AutoSize = True
BorderSpacing.Left = 24
Caption = 'Preview...'
OnClick = btnPreviewClick
TabOrder = 2
end
object cmbDialogs: TComboBox
AnchorSideLeft.Control = btnPrint
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint
AnchorSideTop.Side = asrCenter
Left = 76
Height = 23
Top = 459
Width = 164
DropDownCount = 24
ItemHeight = 15
Items.Strings = (
'RSNoPrinterDialog'
'RSPageSetupDialog'
'RSPrinterDialog'
'RSPrinterSetupDialog'
)
Style = csDropDownList
TabOrder = 3
end
object ccbPreviewOptions: TCheckComboBox
AnchorSideLeft.Control = btnPreview
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPreview
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 348
Height = 22
Top = 459
Width = 300
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
DropDownCount = 24
ItemHeight = 16
Items.Strings = (
'ppoNavigationBtns'
'ppoNavigationEdit'
'ppoZoomBtns'
'ppoPageOrientationBtns'
'ppoMarginsBtn'
'ppoHeaderFooterBtn'
'ppoPrintOrderBtns '
'ppoCenterBtns'
'ppoPageSetupBtn'
'ppoPageInfo'
'ppoZoomInfo'
)
OnItemChange = ccbPreviewOptionsItemChange
TabOrder = 4
end
object Panel1: TPanel
Left = 8
Height = 23
Top = 8
Width = 640
Align = alTop
AutoSize = True
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 640
TabOrder = 5
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = cmbLanguages
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 4
Width = 55
Caption = 'Language:'
end
object cmbLanguages: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 61
Height = 23
Top = 0
Width = 579
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
ItemHeight = 15
OnChange = cmbLanguagesChange
Style = csDropDownList
TabOrder = 0
end
end
object GridPrinter1: TGridPrinter
Grid = StringGrid1
Footer.Font.Height = -11
Header.Font.Height = -11
Header.Text = 'test||'
Left = 168
Top = 96
end
object GridPrintPreviewDialog1: TGridPrintPreviewDialog
GridPrinter = GridPrinter1
Left = 288
Top = 96
end
end