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 = 6 Height = 419 Top = 35 Width = 644 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 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 = 6 Height = 25 Top = 460 Width = 75 Anchors = [akLeft, akBottom] BorderSpacing.Around = 6 Caption = 'Print...' OnClick = btnPrintClick TabOrder = 1 end object btnPreview: TButton AnchorSideLeft.Control = cmbDialogs AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnPrint Left = 275 Height = 25 Top = 460 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 = 87 Height = 23 Top = 461 Width = 164 BorderSpacing.Left = 6 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 = 357 Height = 22 Top = 461 Width = 293 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 ItemHeight = 16 Items.Strings = ( 'ppoNavigationBtns' 'ppoNavigationEdit' 'ppoZoomBtns' 'ppoPageOrientationBtns' 'ppoMarginsBtn' 'ppoHeaderFooterBtn' 'ppoPrintOrderBtns ' ) OnItemChange = ccbPreviewOptionsItemChange TabOrder = 4 end object Panel1: TPanel Left = 0 Height = 29 Top = 0 Width = 656 Align = alTop AutoSize = True BevelOuter = bvNone ClientHeight = 29 ClientWidth = 656 TabOrder = 5 object Label1: TLabel AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = cmbLanguages AnchorSideTop.Side = asrCenter Left = 6 Height = 15 Top = 10 Width = 55 BorderSpacing.Left = 6 Caption = 'Language:' end object cmbLanguages: TComboBox AnchorSideLeft.Control = Label1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 67 Height = 23 Top = 6 Width = 581 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 BorderSpacing.Top = 6 BorderSpacing.Right = 8 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