You've already forked lazarus-ccr
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8609 8e941d3f-bd1b-0410-a28a-d453659cc2b4
163 lines
4.0 KiB
Plaintext
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
|