jvcl driver development envionment
源代码在线查看： mainfrm.dfm
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 = 270
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
Wrap = False
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
Wrap = False
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
Wrap = False
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
Wrap = 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
Min = 0
Max = 500
Position = 8
TabOrder = 11
Thousands = False
Wrap = 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
Min = 0
Max = 500
Position = 8
TabOrder = 13
Thousands = False
Wrap = False
OnClick = udHorzSpacingClick
end
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 612
Height = 270
ActivePage = tabOriginal
Align = alClient
TabOrder = 1
object tabOriginal: TTabSheet
Caption = 'Original'
ImageIndex = 1
object reOriginal: TJvRichEdit
Left = 0
Top = 0
Width = 604
Height = 242
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
TabOrder = 0
WantTabs = True
Zoom = 100
end
end
object tabPreview: TTabSheet
Caption = 'Preview'
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 335
Width = 612
Height = 19
Panels = <
item
Width = 200
end
item
Width = 150
end
item
Width = 50
end>
SimplePanel = False
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
