object frmMain: TfrmMain Left = 251 Top = 110 Width = 620 Height = 400 Caption = 'JvPreviewDocument Demo' Color = clBtnFace Constraints.MinHeight = 400 Constraints.MinWidth = 620 DefaultMonitor = dmDesktop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False Position = poDesktopCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object pnlBottom: TPanel Left = 0 Top = 262 Width = 612 Height = 65 Align = alBottom BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 8 Top = 8 Width = 44 Height = 13 Caption = 'Columns:' end object Label2: TLabel Left = 56 Top = 8 Width = 30 Height = 13 Caption = 'Rows:' end object Label3: TLabel Left = 104 Top = 8 Width = 42 Height = 13 Caption = 'Shadow:' end object Label4: TLabel Left = 152 Top = 8 Width = 29 Height = 13 Caption = 'Scale:' end object Label5: TLabel Left = 480 Top = 8 Width = 42 Height = 13 Caption = 'Preview:' end object Label6: TLabel Left = 344 Top = 8 Width = 58 Height = 13 Caption = 'Scale Mode:' end object Label7: TLabel Left = 216 Top = 8 Width = 24 Height = 13 Caption = 'Vert:' end object Label8: TLabel Left = 280 Top = 8 Width = 26 Height = 13 Caption = 'Horz:' end object edCols: TEdit Left = 8 Top = 24 Width = 25 Height = 21 TabOrder = 0 Text = '1' end object udCols: TUpDown Left = 33 Top = 24 Width = 15 Height = 21 Associate = edCols Min = 1 Position = 1 TabOrder = 1 OnClick = udColsClick end object edRows: TEdit Left = 56 Top = 24 Width = 25 Height = 21 TabOrder = 2 Text = '1' end object udRows: TUpDown Left = 81 Top = 24 Width = 15 Height = 21 Associate = edRows Min = 1 Position = 1 TabOrder = 3 OnClick = udRowsClick end object edShadow: TEdit Left = 104 Top = 24 Width = 25 Height = 21 TabOrder = 4 Text = '4' end object udShadowWidth: TUpDown Left = 129 Top = 24 Width = 15 Height = 21 Associate = edShadow Min = -100 Position = 4 TabOrder = 5 OnClick = udShadowWidthClick end object edScale: TEdit Left = 152 Top = 24 Width = 41 Height = 21 TabOrder = 6 Text = '100' end object udZoom: TUpDown Left = 193 Top = 24 Width = 16 Height = 21 Associate = edScale Min = 1 Max = 500 Position = 100 TabOrder = 7 Thousands = False OnClick = udZoomClick end object cbPreview: TComboBox Left = 480 Top = 24 Width = 129 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 8 OnChange = cbPreviewChange Items.Strings = ( 'Screen' 'Printer') end object cbScaleMode: TComboBox Left = 344 Top = 24 Width = 129 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 9 OnChange = cbScaleModeChange Items.Strings = ( 'Full Page' 'Page Width' 'Use Scale' 'Use Auto Scale' 'Use Cols and Rows') end object edVert: TEdit Left = 216 Top = 24 Width = 41 Height = 21 TabOrder = 10 Text = '8' end object udVertSpacing: TUpDown Left = 257 Top = 24 Width = 15 Height = 21 Associate = edVert Max = 500 Position = 8 TabOrder = 11 Thousands = False OnClick = udVertSpacingClick end object edHorz: TEdit Left = 280 Top = 24 Width = 41 Height = 21 TabOrder = 12 Text = '8' end object udHorzSpacing: TUpDown Left = 321 Top = 24 Width = 15 Height = 21 Associate = edHorz Max = 500 Position = 8 TabOrder = 13 Thousands = False OnClick = udHorzSpacingClick end end object PageControl1: TPageControl Left = 0 Top = 0 Width = 612 Height = 262 ActivePage = tabOriginal Align = alClient TabOrder = 1 object tabOriginal: TTabSheet Caption = 'Original' ImageIndex = 1 object reOriginal: TJvRichEdit Left = 0 Top = 0 Width = 604 Height = 234 Align = alClient AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] ParentFont = False TabOrder = 0 WantTabs = True end end object tabPreview: TTabSheet Caption = 'Preview' end end object StatusBar1: TStatusBar Left = 0 Top = 327 Width = 612 Height = 19 Panels = < item Width = 200 end item Width = 150 end item Width = 50 end> end object PrinterSetupDialog1: TPrinterSetupDialog Left = 182 Top = 64 end object MainMenu1: TMainMenu Left = 96 Top = 64 object File1: TMenuItem Caption = 'File' object Open1: TMenuItem Caption = 'Open...' ShortCut = 16463 OnClick = Open1Click end object N1: TMenuItem Caption = '-' end object Print1: TMenuItem Caption = 'Print...' ShortCut = 16464 OnClick = Print1Click end object Printer1: TMenuItem Caption = 'Printer Settings...' ShortCut = 24656 OnClick = Printer1Click end object N2: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'Exit' ShortCut = 32883 OnClick = Exit1Click end end object View1: TMenuItem Caption = 'View' object First1: TMenuItem Caption = 'First' ShortCut = 16420 OnClick = First1Click end object Previous1: TMenuItem Caption = 'Previous' ShortCut = 16417 OnClick = Previous1Click end object Next1: TMenuItem Caption = 'Next' ShortCut = 16418 OnClick = Next1Click end object Last1: TMenuItem Caption = 'Last' ShortCut = 16419 OnClick = Last1Click end object N3: TMenuItem Caption = '-' end object mnuPreview: TMenuItem Caption = 'Preview' object Control1: TMenuItem Caption = 'Control' OnClick = Control1Click end end end object Options1: TMenuItem Caption = 'Options' object mnuMargins: TMenuItem Caption = 'Margins' Checked = True OnClick = mnuMarginsClick end object Clear1: TMenuItem Caption = 'Clear' OnClick = Clear1Click end end object Help1: TMenuItem Caption = 'Help' object About1: TMenuItem Caption = 'About...' OnClick = About1Click end end end object OpenDialog1: TOpenDialog Filter = 'RTF files|*.rtf|Text files|*.txt' Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] Left = 92 Top = 112 end object PrintDialog1: TPrintDialog Copies = 1 MaxPage = 33 Options = [poPageNums] PrintRange = prPageNums ToPage = 33 Left = 94 Top = 160 end end