Adds a simple browser

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-06-24 08:34:19 +00:00
parent 06711060ba
commit 2cb9e11e9b
36 changed files with 6207 additions and 0 deletions

View File

@ -0,0 +1,283 @@
object Form1: TForm1
Left = 372
Top = 267
ClientHeight = 439
ClientWidth = 621
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Menu = MainMenu
OldCreateOrder = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 421
Width = 621
Height = 18
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
object ProgressBar: TProgressBar
Left = 470
Top = 1
Width = 150
Height = 16
Align = alRight
TabOrder = 0
Visible = False
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 621
Height = 33
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Edit1: TEdit
Left = 190
Top = 4
Width = 337
Height = 24
TabStop = False
ReadOnly = True
TabOrder = 3
end
object ReloadButton: TButton
Left = 10
Top = 4
Width = 59
Height = 24
Caption = '&Reload'
Enabled = False
TabOrder = 0
OnClick = ReloadButtonClick
end
object BackButton: TButton
Left = 69
Top = 4
Width = 59
Height = 24
Caption = '&Back'
Enabled = False
TabOrder = 1
OnClick = FwdBackClick
end
object FwdButton: TButton
Left = 128
Top = 4
Width = 59
Height = 24
Caption = '&Forward'
Enabled = False
TabOrder = 2
OnClick = FwdBackClick
end
end
object Panel3: TPanel
Left = 0
Top = 33
Width = 621
Height = 388
Align = alClient
BevelInner = bvLowered
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 2
object Viewer: THTMLViewer
Left = 1
Top = 1
Width = 619
Height = 386
OnHotSpotCovered = HotSpotChange
OnHotSpotClick = HotSpotClick
OnFormSubmit = SubmitEvent
OnHistoryChange = HistoryChange
OnProgress = ViewerProgress
TabStop = True
TabOrder = 0
Align = alClient
DefBackground = clWindow
BorderStyle = htFocused
HistoryMaxCount = 6
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
DefFontColor = clWindowText
DefOverLinkColor = clFuchsia
ImageCacheCount = 6
NoSelect = False
CharSet = DEFAULT_CHARSET
PrintMarginLeft = 2.000000000000000000
PrintMarginRight = 2.000000000000000000
PrintMarginTop = 2.000000000000000000
PrintMarginBottom = 2.000000000000000000
PrintScale = 1.000000000000000000
OnMouseMove = ViewerMouseMove
OnProcessing = ProcessingHandler
OnPrintHTMLHeader = ViewerPrintHTMLHeader
OnPrintHTMLFooter = ViewerPrintHTMLFooter
OnInclude = ViewerInclude
OnSoundRequest = SoundRequest
OnMetaRefresh = MetaRefreshEvent
OnObjectClick = ObjectClick
OnRightClick = RightClick
object MediaPlayer: TMediaPlayer
Left = 336
Top = 40
Width = 253
Height = 30
Visible = False
TabOrder = 3
OnNotify = MediaPlayerNotify
end
end
end
object OpenDialog: TOpenDialog
DefaultExt = 'htm'
Filter = 'html files|*.htm;*.html|all files|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Left = 329
Top = 2
end
object MainMenu: TMainMenu
Left = 291
Top = 4
object File1: TMenuItem
Caption = '&File'
object Open: TMenuItem
Caption = '&Open'
ShortCut = 114
OnClick = OpenFileClick
end
object OpenTextFile: TMenuItem
Caption = 'Open &Text File'
OnClick = OpenTextFileClick
end
object OpenImageFile: TMenuItem
Caption = 'Open &Image File'
OnClick = OpenImageFileClick
end
object PrinterSetup1: TMenuItem
Caption = 'Printer Setup...'
OnClick = PrinterSetup1Click
end
object Printpreview: TMenuItem
Caption = 'Print pre&view'
Enabled = False
OnClick = PrintpreviewClick
end
object Print1: TMenuItem
Caption = '&Print...'
Enabled = False
OnClick = Print1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object Edit2: TMenuItem
Caption = '&Edit'
OnClick = Edit2Click
object Find1: TMenuItem
Caption = '&Find'
Enabled = False
OnClick = Find1Click
end
object CopyItem: TMenuItem
Caption = '&Copy'
ShortCut = 16451
OnClick = CopyItemClick
end
object N2: TMenuItem
Caption = '-'
end
object SelectAllItem: TMenuItem
Caption = 'Select &All'
Enabled = False
OnClick = SelectAllItemClick
end
end
object options1: TMenuItem
Caption = '&Options'
object ShowImages: TMenuItem
Caption = '&Show images'
OnClick = ShowImagesClick
end
object Fonts: TMenuItem
Caption = 'Default &Font/Colors...'
OnClick = FontColorsClick
end
end
object HistoryMenuItem: TMenuItem
Caption = '&History'
Visible = False
end
object About1: TMenuItem
Caption = '&About'
OnClick = About1Click
end
end
object PrintDialog: TPrintDialog
FromPage = 1
MinPage = 1
MaxPage = 9999
Options = [poPageNums]
ToPage = 1
Left = 362
Top = 1
end
object FindDialog: TFindDialog
Options = [frDown, frHideWholeWord, frDisableWholeWord]
OnFind = FindDialogFind
Left = 249
Top = 65535
end
object PopupMenu: TPopupMenu
Left = 400
Top = 1
object Viewimage: TMenuItem
Caption = '&View image'
OnClick = ViewimageClick
end
object CopyImageToClipboard: TMenuItem
Caption = '&Copy image to clipboard'
OnClick = CopyImageToClipboardClick
end
object N3: TMenuItem
Caption = '-'
end
object OpenInNewWindow: TMenuItem
Caption = '&Open in new window'
OnClick = OpenInNewWindowClick
end
end
object MetaTimer: TTimer
Enabled = False
OnTimer = MetaTimerTimer
Left = 242
Top = 75
end
object Timer1: TTimer
Interval = 200
OnTimer = Timer1Timer
Left = 291
Top = 71
end
object PrinterSetupDialog: TPrinterSetupDialog
Left = 448
end
end

View File

@ -0,0 +1,261 @@
object Form1: TForm1
Left = 135
Top = 398
Caption = 'Frame Demo'
ClientHeight = 252
ClientWidth = 494
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = True
Position = poDesktopCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object Panel2: TPanel
Left = 0
Top = 229
Width = 494
Height = 23
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvLowered
TabOrder = 0
object ProgressBar: TProgressBar
Left = 342
Top = 2
Width = 150
Height = 19
Align = alRight
TabOrder = 0
Visible = False
end
end
object FrameViewer: TFrameViewer
Left = 0
Top = 25
Width = 494
Height = 204
OnHotSpotTargetCovered = HotspotTargetChange
OnHotSpotTargetClick = HotSpotTargetClick
ImageCacheCount = 6
OnHistoryChange = HistoryChange
NoSelect = False
OnBlankWindowRequest = WindowRequest
OnObjectClick = FrameViewerObjectClick
OnRightClick = FrameViewerRightClick
OnInclude = FrameViewerInclude
OnSoundRequest = SoundRequest
PrintMarginLeft = 2.000000000000000000
PrintMarginRight = 2.000000000000000000
PrintMarginTop = 2.000000000000000000
PrintMarginBottom = 3.000000000000000000
PrintScale = 1.000000000000000000
OnPrintHTMLHeader = ViewerPrintHTMLHeader
OnPrintHTMLFooter = ViewerPrintHTMLFooter
DefBackground = clWindow
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
DefHotSpotColor = clNavy
HistoryMaxCount = 6
CharSet = DEFAULT_CHARSET
OnProcessing = ProcessingHandler
Align = alClient
TabOrder = 1
OnMouseMove = FrameViewerMouseMove
OnFormSubmit = SubmitEvent
fvOptions = [fvMetaRefresh, fvOverLinksActive, fvPrintMonochromeBlack, fvPrintTableBackground, fvShowVScroll]
OnProgress = FrameViewerProgress
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 494
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object ReloadButton: TButton
Left = 8
Top = 0
Width = 65
Height = 25
Caption = '&Reload'
Enabled = False
TabOrder = 0
OnClick = ReloadClick
end
object FwdButton: TButton
Left = 72
Top = 0
Width = 65
Height = 25
Caption = '&Fwd'
Enabled = False
TabOrder = 1
OnClick = FwdButtonClick
end
object BackButton: TButton
Left = 136
Top = 0
Width = 65
Height = 25
Caption = '&Back'
Enabled = False
TabOrder = 2
OnClick = BackButtonClick
end
object Edit2: TEdit
Left = 208
Top = 0
Width = 337
Height = 24
TabOrder = 3
end
end
object MediaPlayer: TMediaPlayer
Left = 76
Top = 115
Width = 253
Height = 30
Visible = False
TabOrder = 3
OnNotify = MediaPlayerNotify
end
object MainMenu1: TMainMenu
Left = 360
Top = 72
object File1: TMenuItem
Caption = '&File'
OnClick = File1Click
object Open1: TMenuItem
Caption = '&Open'
ShortCut = 114
OnClick = Open1Click
end
object SetPrintScale: TMenuItem
Caption = 'Set PrintScale'
OnClick = SetPrintScaleClick
end
object PrinterSetup: TMenuItem
Caption = 'Printer Setup...'
OnClick = PrinterSetupClick
end
object PrintPreview1: TMenuItem
Caption = 'Print Pre&view'
Enabled = False
OnClick = PrintPreview1Click
end
object Print1: TMenuItem
Caption = '&Print...'
OnClick = Print1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = '&Exit'
OnClick = Exit1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
OnClick = Edit1Click
object Find1: TMenuItem
Caption = '&Find'
ShortCut = 16454
OnClick = Find1Click
end
object Copy1: TMenuItem
Caption = '&Copy'
ShortCut = 16451
OnClick = Copy1Click
end
object N2: TMenuItem
Caption = '-'
end
object SelectAll1: TMenuItem
Caption = '&Select All'
OnClick = SelectAll1Click
end
end
object Options1: TMenuItem
Caption = '&Options'
object Showimages: TMenuItem
Caption = '&Show images'
Checked = True
OnClick = ShowimagesClick
end
object Fonts: TMenuItem
Caption = 'Default &Font/Colors'
OnClick = FontsClick
end
end
object HistoryMenuItem: TMenuItem
Caption = '&History'
Visible = False
end
object About1: TMenuItem
Caption = '&About'
OnClick = About1Click
end
end
object OpenDialog: TOpenDialog
DefaultExt = 'htm'
Filter = 'html files|*.htm;*.html|all files|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Left = 320
Top = 72
end
object FindDialog: TFindDialog
Options = [frDown, frHideWholeWord, frDisableWholeWord]
OnFind = FindDialogFind
Left = 400
Top = 72
end
object PrintDialog: TPrintDialog
FromPage = 1
MinPage = 1
MaxPage = -1
Options = [poPageNums]
ToPage = 1
Left = 272
Top = 73
end
object PopupMenu: TPopupMenu
Left = 360
Top = 105
object ViewImage: TMenuItem
Caption = '&View Image'
OnClick = ViewImageClick
end
object CopyImagetoclipboard: TMenuItem
Caption = '&Copy image to clipboard'
OnClick = CopyImagetoclipboardClick
end
object N3: TMenuItem
Caption = '-'
end
object OpenInNewWindow: TMenuItem
Caption = '&Open in new window'
OnClick = OpenInNewWindowClick
end
end
object Timer1: TTimer
Enabled = False
Interval = 200
OnTimer = Timer1Timer
Left = 236
Top = 66
end
object PrinterSetupDialog: TPrinterSetupDialog
Left = 440
Top = 65
end
end

View File

@ -0,0 +1,177 @@
object FontForm: TFontForm
Left = 200
Top = 153
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Edit Default Font and Colors'
ClientHeight = 339
ClientWidth = 307
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 225
Top = 7
Width = 66
Height = 16
Caption = '&Font Color'
FocusControl = FontColorGrid
end
object Label2: TLabel
Left = 225
Top = 99
Width = 65
Height = 16
Caption = '&Link Color'
FocusControl = HotSpotColorGrid
end
object Label3: TLabel
Left = 225
Top = 189
Width = 61
Height = 16
Caption = 'Font &Size'
FocusControl = FontSizeEdit
end
object Label4: TLabel
Left = 9
Top = 200
Width = 70
Height = 16
Caption = 'Font &Name'
FocusControl = FontListBox
end
object Label5: TLabel
Left = 122
Top = 200
Width = 77
Height = 16
Caption = '&Background'
FocusControl = BackListBox
end
object FontListBox: TListBox
Left = 11
Top = 217
Width = 87
Height = 115
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 0
OnClick = ListBoxClicks
end
object FontColorGrid: TColorGrid
Left = 225
Top = 23
Width = 72
Height = 72
ClickEnablesColor = True
ForegroundIndex = -1
ForegroundEnabled = False
BackgroundEnabled = False
Selection = 3
TabOrder = 2
TabStop = True
OnChange = FontColorGridChange
end
object HotSpotColorGrid: TColorGrid
Left = 225
Top = 114
Width = 72
Height = 72
ClickEnablesColor = True
ForegroundIndex = -1
ForegroundEnabled = False
BackgroundEnabled = False
TabOrder = 3
TabStop = True
OnChange = HotSpotColorGridChange
end
object BackListBox: TListBox
Left = 122
Top = 217
Width = 87
Height = 115
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
OnClick = ListBoxClicks
end
object OKButton: TButton
Left = 234
Top = 274
Width = 54
Height = 25
Caption = 'O&K'
Default = True
ModalResult = 1
TabOrder = 5
end
object Cancel: TButton
Left = 234
Top = 301
Width = 54
Height = 25
Caption = 'Cancel'
ModalResult = 2
TabOrder = 7
end
object ResetButton: TButton
Left = 234
Top = 246
Width = 54
Height = 25
Caption = '&Reset'
TabOrder = 6
OnClick = ResetButtonClick
end
object FontSizeEdit: TSpinEdit
Left = 225
Top = 206
Width = 65
Height = 26
MaxValue = 24
MinValue = 6
TabOrder = 4
Value = 12
OnChange = ListBoxClicks
end
object FontViewer: THTMLViewer
Left = 15
Top = 16
Width = 193
Height = 177
Cursor = 2
ViewImages = False
TabOrder = 8
BorderStyle = htSingle
HistoryMaxCount = 0
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
NoSelect = True
ScrollBars = ssVertical
CharSet = DEFAULT_CHARSET
PrintMarginLeft = 2.000000000000000000
PrintMarginRight = 2.000000000000000000
PrintMarginTop = 2.000000000000000000
PrintMarginBottom = 2.000000000000000000
PrintScale = 1.000000000000000000
htOptions = []
end
end

View File

@ -0,0 +1,149 @@
object FontForm: TFontForm
Left = 200
Top = 153
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Edit Default Font and Colors'
ClientHeight = 339
Height = 339
ClientWidth = 307
Width = 307
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
object Label1: TLabel
Left = 225
Top = 7
Width = 66
Height = 16
Caption = '&Font Color'
end
object Label2: TLabel
Left = 225
Top = 99
Width = 65
Height = 16
Caption = '&Link Color'
end
object Label3: TLabel
Left = 225
Top = 189
Width = 61
Height = 16
Caption = 'Font &Size'
FocusControl = FontSizeEdit
end
object Label4: TLabel
Left = 9
Top = 200
Width = 70
Height = 16
Caption = 'Font &Name'
FocusControl = FontListBox
end
object Label5: TLabel
Left = 122
Top = 200
Width = 77
Height = 16
Caption = '&Background'
FocusControl = BackListBox
end
object FontListBox: TListBox
Left = 11
Top = 217
Width = 87
Height = 115
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 0
OnClick = ListBoxClicks
end
object BackListBox: TListBox
Left = 122
Top = 217
Width = 87
Height = 115
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
OnClick = ListBoxClicks
end
object OKButton: TButton
Left = 234
Top = 274
Width = 54
Height = 25
Caption = 'O&K'
Default = True
ModalResult = 1
TabOrder = 5
end
object Cancel: TButton
Left = 234
Top = 301
Width = 54
Height = 25
Caption = 'Cancel'
ModalResult = 2
TabOrder = 7
end
object ResetButton: TButton
Left = 234
Top = 246
Width = 54
Height = 25
Caption = '&Reset'
TabOrder = 6
OnClick = ResetButtonClick
end
object FontSizeEdit: TSpinEdit
Left = 225
Top = 206
Width = 65
Height = 26
MaxValue = 24
MinValue = 6
TabOrder = 4
Value = 12
OnChange = ListBoxClicks
end
object FontViewer: THTMLViewer
Left = 15
Top = 16
Width = 193
Height = 177
Cursor = 2
ViewImages = False
TabOrder = 8
BorderStyle = htSingle
HistoryMaxCount = 0
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
NoSelect = True
ScrollBars = ssVertical
CharSet = DEFAULT_CHARSET
PrintMarginLeft = 2.000000000000000000
PrintMarginRight = 2.000000000000000000
PrintMarginTop = 2.000000000000000000
PrintMarginBottom = 2.000000000000000000
PrintScale = 1.000000000000000000
htOptions = []
end
end

View File

@ -0,0 +1,42 @@
LazarusResources.Add('TFontForm','FORMDATA',[
'TPF0'#9'TFontForm'#8'FontForm'#4'Left'#3#200#0#3'Top'#3#153#0#11'BorderIcons'
+#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#28'Edit De'
+'fault Font and Colors'#12'ClientHeight'#3'S'#1#6'Height'#3'S'#1#11'ClientWi'
+'dth'#3'3'#1#5'Width'#3'3'#1#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.'
+'Color'#7#12'clWindowText'#11'Font.Height'#2#243#9'Font.Name'#6#5'Arial'#10
+'Font.Style'#11#0#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#13'Pi'
+'xelsPerInch'#2'`'#0#6'TLabel'#6'Label1'#4'Left'#3#225#0#3'Top'#2#7#5'Width'
+#2'B'#6'Height'#2#16#7'Caption'#6#11'&Font Color'#0#0#6'TLabel'#6'Label2'#4
+'Left'#3#225#0#3'Top'#2'c'#5'Width'#2'A'#6'Height'#2#16#7'Caption'#6#11'&Lin'
+'k Color'#0#0#6'TLabel'#6'Label3'#4'Left'#3#225#0#3'Top'#3#189#0#5'Width'#2
+'='#6'Height'#2#16#7'Caption'#6#10'Font &Size'#12'FocusControl'#7#12'FontSiz'
+'eEdit'#0#0#6'TLabel'#6'Label4'#4'Left'#2#9#3'Top'#3#200#0#5'Width'#2'F'#6'H'
+'eight'#2#16#7'Caption'#6#10'Font &Name'#12'FocusControl'#7#11'FontListBox'#0
+#0#6'TLabel'#6'Label5'#4'Left'#2'z'#3'Top'#3#200#0#5'Width'#2'M'#6'Height'#2
+#16#7'Caption'#6#11'&Background'#12'FocusControl'#7#11'BackListBox'#0#0#8'TL'
+'istBox'#11'FontListBox'#4'Left'#2#11#3'Top'#3#217#0#5'Width'#2'W'#6'Height'
+#2's'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'#7#7'clBlack'#11
+'Font.Height'#2#245#9'Font.Name'#6#5'Arial'#10'Font.Style'#11#0#10'ItemHeigh'
+'t'#2#13#10'ParentFont'#8#6'Sorted'#9#8'TabOrder'#2#0#7'OnClick'#7#13'ListBo'
+'xClicks'#0#0#8'TListBox'#11'BackListBox'#4'Left'#2'z'#3'Top'#3#217#0#5'Widt'
+'h'#2'W'#6'Height'#2's'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'
+#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#5'Arial'#10'Font.Style'#11
+#0#10'ItemHeight'#2#13#10'ParentFont'#8#8'TabOrder'#2#1#7'OnClick'#7#13'List'
+'BoxClicks'#0#0#7'TButton'#8'OKButton'#4'Left'#3#234#0#3'Top'#3#18#1#5'Width'
+#2'6'#6'Height'#2#25#7'Caption'#6#3'O&K'#7'Default'#9#11'ModalResult'#2#1#8
+'TabOrder'#2#5#0#0#7'TButton'#6'Cancel'#4'Left'#3#234#0#3'Top'#3'-'#1#5'Widt'
+'h'#2'6'#6'Height'#2#25#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrde'
+'r'#2#7#0#0#7'TButton'#11'ResetButton'#4'Left'#3#234#0#3'Top'#3#246#0#5'Widt'
+'h'#2'6'#6'Height'#2#25#7'Caption'#6#6'&Reset'#8'TabOrder'#2#6#7'OnClick'#7
+#16'ResetButtonClick'#0#0#9'TSpinEdit'#12'FontSizeEdit'#4'Left'#3#225#0#3'To'
+'p'#3#206#0#5'Width'#2'A'#6'Height'#2#26#8'MaxValue'#2#24#8'MinValue'#2#6#8
+'TabOrder'#2#4#5'Value'#2#12#8'OnChange'#7#13'ListBoxClicks'#0#0#11'THTMLVie'
+'wer'#10'FontViewer'#4'Left'#2#15#3'Top'#2#16#5'Width'#3#193#0#6'Height'#3
+#177#0#6'Cursor'#2#2#10'ViewImages'#8#8'TabOrder'#2#8#11'BorderStyle'#7#8'ht'
+'Single'#15'HistoryMaxCount'#2#0#11'DefFontName'#6#15'Times New Roman'#14'De'
+'fPreFontName'#6#11'Courier New'#8'NoSelect'#9#10'ScrollBars'#7#10'ssVertica'
+'l'#7'CharSet'#7#15'DEFAULT_CHARSET'#15'PrintMarginLeft'#5#0#0#0#0#0#0#0#128
+#0'@'#16'PrintMarginRight'#5#0#0#0#0#0#0#0#128#0'@'#14'PrintMarginTop'#5#0#0
+#0#0#0#0#0#128#0'@'#17'PrintMarginBottom'#5#0#0#0#0#0#0#0#128#0'@'#10'PrintS'
+'cale'#5#0#0#0#0#0#0#0#128#255'?'#9'htOptions'#11#0#0#0#0
]);

View File

@ -0,0 +1,238 @@
unit Fontdlg;
interface
uses
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, {$IFNDEF LCL} ColorGrd, {$ENDIF} Htmlview, Spin;
type
TFontForm = class(TForm)
FontListBox: TListBox;
{$IFNDEF LCL}
FontColorGrid: TColorGrid;
HotSpotColorGrid: TColorGrid;
{$ENDIF}
BackListBox: TListBox;
OKButton: TButton;
Cancel: TButton;
ResetButton: TButton;
FontSizeEdit: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
FontViewer: THTMLViewer;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ResetButtonClick(Sender: TObject);
procedure HotSpotColorGridChange(Sender: TObject);
procedure FontColorGridChange(Sender: TObject);
procedure ListBoxClicks(Sender: TObject);
private
{ Private declarations }
FFontColor: TColor;
FHotSpotColor: TColor;
FFontSize: integer;
InitialFontName: string;
InitialFontSize: integer;
InitialFontColor: TColor;
InitialHotSpotColor: TColor;
InitialBackground: TColor;
procedure AddItem(const Value: string);
function GetFontName: TFontName;
procedure SetFontName(Value: TFontName);
function GetBackground: TColor;
procedure SetBackground(Value: TColor);
procedure SetFontColor(Value: TColor);
procedure SetHotSpotColor(Value: TColor);
procedure SetFontSize(Value: integer);
procedure LoadAgain;
public
{ Public declarations }
property FontName: TFontName read GetFontName write SetFontName;
property Background: TColor read GetBackground write SetBackground;
property FontColor: TColor read FFontColor write SetFontColor;
property FontSize: integer read FFontSize write SetFontSize;
property HotSpotColor: TColor read FHotSpotColor write SetHotSpotColor;
end;
var
FontForm: TFontForm;
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$ENDIF}
const
ViewText: string =
'<center><h1>Heading</h1></center>'+
'<ul>Some normal text.'+
'<li><a href=NoWhere>HotSpot Item</a>'+
'<li><b>Bold Text</b>'+
'<li><i>Italicized Text</i>'+
'<li><code>Code Text</code>'+
'</ul> '+
'<hr>';
procedure TFontForm.LoadAgain;
begin
FontViewer.LoadFromBuffer(@ViewText[1], Length(ViewText), '');
end;
procedure TFontForm.FormCreate(Sender: TObject);
begin
FontListBox.Items := Screen.Fonts;
GetColorValues(AddItem);
LoadAgain;
end;
procedure TFontForm.AddItem(const Value: string);
var
Color: TColor;
begin
Color := StringToColor(Value);
if (Color >= 0) or (Color = -16) or (Color = -6) or (Color = -2) then
BackListBox.Items.Add(Value);
end;
function TFontForm.GetFontName: TFontName;
begin
{$IFNDEF MSWINDOWS}
if Screen.Fonts.Count = 0 then //GTK2 without HasX defined (empty list)?
begin
Result := FontViewer.DefFontName;
Exit;
end;
{$ENDIF}
try
Result := FontListBox.Items[FontListBox.ItemIndex];
except
Result := 'System'; {in case nothing hilited}
end;
end;
procedure TFontForm.SetFontName(Value: TFontName);
var
I: integer;
begin
I := FontListBox.Items.IndexOf(Value);
if I < 0 then
I := FontListBox.Items.IndexOf('System');
{$IFNDEF MSWINDOWS} //System font only makes sense on Windows, so just select first font
if I < 0 then
I := 0;
if Screen.Fonts.Count > 0 then //Check in case GTK2 without HasX defined
{$ENDIF}
FontListBox.ItemIndex := I;
FontViewer.DefFontName := Value;
LoadAgain;
end;
function TFontForm.GetBackground: TColor;
begin
try
Result := StringToColor(BackListBox.Items[BackListBox.ItemIndex]);
except
Result := clBtnFace;
end;
end;
procedure TFontForm.SetBackground(Value: TColor);
var
I: integer;
S: string[80];
begin
S := ColorToString(Value);
I := BackListBox.Items.IndexOf(S);
if I < 0 then
begin
BackListBox.Items.Add(S);
I := BackListBox.Items.IndexOf(S);
end;
BackListBox.ItemIndex := I;
FontViewer.DefBackground := Value;
end;
procedure TFontForm.SetFontSize(Value: integer);
begin
FontViewer.DefFontSize := Value;
FFontSize := Value;
FontSizeEdit.Value := Value;
LoadAgain;
end;
procedure TFontForm.SetFontColor(Value: TColor);
begin
FontViewer.DefFontColor := Value;
FFontColor := Value;
{$IFNDEF LCL}
FontColorGrid.ForegroundEnabled := False;
{$ENDIF}
LoadAgain;
end;
procedure TFontForm.SetHotSpotColor(Value: TColor);
begin
FontViewer.DefHotSpotColor := Value;
FHotSpotColor := Value;
{$IFNDEF LCL}
HotSpotColorGrid.ForegroundEnabled := False;
{$ENDIF}
LoadAgain;
end;
procedure TFontForm.FormShow(Sender: TObject);
begin
InitialFontName := GetFontName;
InitialFontColor := FFontColor;
InitialHotSpotColor := FHotSpotColor;
InitialBackground := GetBackground;
InitialFontSize := FFontSize;
end;
procedure TFontForm.ResetButtonClick(Sender: TObject);
begin
FontName := InitialFontName;
FontSize := InitialFontSize;
FontColor := InitialFontColor;
HotSpotColor := InitialHotSpotColor;
Background := InitialBackground;
end;
procedure TFontForm.HotSpotColorGridChange(Sender: TObject);
begin
{$IFNDEF LCL}
HotSpotColor := HotSpotColorGrid.ForegroundColor;
{$ENDIF}
end;
procedure TFontForm.FontColorGridChange(Sender: TObject);
begin
{$IFNDEF LCL}
FontColor := FontColorGrid.ForegroundColor;
{$ENDIF}
end;
procedure TFontForm.ListBoxClicks(Sender: TObject);
begin
if Sender = FontListBox then
{$IFNDEF MSWINDOWS}
if Screen.Fonts.Count = 0 then else //Check in case GTK2 without HasX defined
{$ENDIF}
FontName := FontListBox.Items[FontListBox.ItemIndex]
else if Sender = BackListBox then
Background := StringToColor(BackListBox.Items[BackListBox.ItemIndex])
else if Sender = FontSizeEdit then
FontSize := FontSizeEdit.Value;
end;
initialization
{$IFDEF LCL}
{$I Fontdlg.lrs} {Include form's resource file}
{$ENDIF}
end.

View File

@ -0,0 +1,29 @@
program fpbrowser;
{A program to demonstrate the ThtmlViewer component}
uses
{$IFDEF LCL}
Interfaces,
{$ENDIF}
Forms, laz_synapse,
mainform {Form1},
Submit in 'Submit.pas' {SubmitForm},
Fontdlg in 'Fontdlg.pas' {FontForm},
Htmlabt in 'Htmlabt.pas' {AboutBox},
{$IFNDEF LCL}
PreviewForm in 'PreviewForm.pas' {PreviewForm},
Gopage in 'Gopage.pas' {GoPageForm},
PrintStatusForm in 'PrintStatusForm.pas' {PrnStatusForm},
{$ENDIF}
ImgForm in 'ImgForm.pas', pageloader {ImageForm};
{$IFDEF MSWINDOWS}
{$R *.res}
{$ENDIF}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TSubmitForm, SubmitForm);
Application.Run;
end.

View File

@ -0,0 +1,315 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<Title Value="fpbrowser"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<VersionInfo>
<Language Value=""/>
<CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="laz_synapse"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
<Item3>
<PackageName Value="htmlcomp"/>
<DefaultFilename Value="../../components/thtmlport/package/htmlcomp.lpk" Prefer="True"/>
</Item3>
</RequiredPackages>
<Units Count="8">
<Unit0>
<Filename Value="fpbrowser.dpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="fpbrowser"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="36" Y="3"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="mainform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="mainform"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="22" Y="310"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit1>
<Unit2>
<Filename Value="submit.pas"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<UnitName Value="Submit"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit2>
<Unit3>
<Filename Value="fontdlg.pas"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<UnitName Value="Fontdlg"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit3>
<Unit4>
<Filename Value="htmlabt.pas"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<UnitName Value="HTMLAbt"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit4>
<Unit5>
<Filename Value="pageloader.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="pageloader"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/>
<TopLine Value="23"/>
<CursorPos X="17" Y="31"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit5>
<Unit6>
<Filename Value="../../../lazarus/lcl/lcltype.pp"/>
<UnitName Value="LCLType"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="387"/>
<CursorPos X="12" Y="401"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="../../components/thtmlport/package/styleun.pas"/>
<UnitName Value="StyleUn"/>
<WindowIndex Value="0"/>
<TopLine Value="2521"/>
<CursorPos X="43" Y="2554"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit7>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="fpbrowser.dpr"/>
<Caret Line="10" Column="7" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="fpbrowser.dpr"/>
<Caret Line="11" Column="6" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="fpbrowser.dpr"/>
<Caret Line="12" Column="6" TopLine="1"/>
</Position3>
<Position4>
<Filename Value="mainform.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position4>
<Position5>
<Filename Value="pageloader.pas"/>
<Caret Line="17" Column="24" TopLine="1"/>
</Position5>
<Position6>
<Filename Value="pageloader.pas"/>
<Caret Line="18" Column="39" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="mainform.pas"/>
<Caret Line="273" Column="48" TopLine="268"/>
</Position7>
<Position8>
<Filename Value="mainform.pas"/>
<Caret Line="23" Column="55" TopLine="1"/>
</Position8>
<Position9>
<Filename Value="mainform.pas"/>
<Caret Line="270" Column="21" TopLine="246"/>
</Position9>
<Position10>
<Filename Value="pageloader.pas"/>
<Caret Line="58" Column="3" TopLine="8"/>
</Position10>
<Position11>
<Filename Value="pageloader.pas"/>
<Caret Line="42" Column="3" TopLine="18"/>
</Position11>
<Position12>
<Filename Value="mainform.pas"/>
<Caret Line="163" Column="15" TopLine="131"/>
</Position12>
<Position13>
<Filename Value="mainform.pas"/>
<Caret Line="969" Column="1" TopLine="945"/>
</Position13>
<Position14>
<Filename Value="mainform.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position14>
<Position15>
<Filename Value="mainform.pas"/>
<Caret Line="422" Column="23" TopLine="381"/>
</Position15>
<Position16>
<Filename Value="mainform.pas"/>
<Caret Line="423" Column="23" TopLine="383"/>
</Position16>
<Position17>
<Filename Value="mainform.pas"/>
<Caret Line="450" Column="48" TopLine="409"/>
</Position17>
<Position18>
<Filename Value="mainform.pas"/>
<Caret Line="452" Column="21" TopLine="411"/>
</Position18>
<Position19>
<Filename Value="mainform.pas"/>
<Caret Line="2" Column="1" TopLine="1"/>
</Position19>
<Position20>
<Filename Value="mainform.pas"/>
<Caret Line="45" Column="11" TopLine="5"/>
</Position20>
<Position21>
<Filename Value="mainform.pas"/>
<Caret Line="77" Column="21" TopLine="37"/>
</Position21>
<Position22>
<Filename Value="mainform.pas"/>
<Caret Line="268" Column="24" TopLine="228"/>
</Position22>
<Position23>
<Filename Value="mainform.pas"/>
<Caret Line="272" Column="36" TopLine="232"/>
</Position23>
<Position24>
<Filename Value="mainform.pas"/>
<Caret Line="382" Column="9" TopLine="342"/>
</Position24>
<Position25>
<Filename Value="mainform.pas"/>
<Caret Line="403" Column="7" TopLine="389"/>
</Position25>
<Position26>
<Filename Value="mainform.pas"/>
<Caret Line="995" Column="17" TopLine="958"/>
</Position26>
<Position27>
<Filename Value="mainform.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position27>
<Position28>
<Filename Value="mainform.pas"/>
<Caret Line="36" Column="25" TopLine="1"/>
</Position28>
<Position29>
<Filename Value="mainform.pas"/>
<Caret Line="270" Column="1" TopLine="255"/>
</Position29>
<Position30>
<Filename Value="mainform.pas"/>
<Caret Line="274" Column="5" TopLine="255"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<SearchPaths>
<OtherUnitFiles Value="$(LazarusDir)/components/printers/lib/$(TargetCPU)-$(TargetOS)/$(LCLWidgetType)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
<CStyleOperator Value="False"/>
<IncludeAssertionCode Value="True"/>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-dDebugIt"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

View File

@ -0,0 +1,66 @@
object GoPageForm: TGoPageForm
Left = 305
Top = 180
ActiveControl = PageNum
BorderStyle = bsDialog
Caption = 'Go to Page Number'
ClientHeight = 116
ClientWidth = 231
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 11
Top = 8
Width = 209
Height = 57
Shape = bsFrame
IsControl = True
end
object OKBtn: TBitBtn
Left = 35
Top = 76
Width = 77
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Kind = bkOK
Spacing = 3
IsControl = True
end
object CancelBtn: TBitBtn
Left = 119
Top = 76
Width = 77
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkCancel
Spacing = 3
IsControl = True
end
object PageNum: TSpinEdit
Left = 87
Top = 27
Width = 57
Height = 22
MaxValue = 0
MinValue = 1
TabOrder = 0
Value = 0
OnEnter = PageNumEnter
OnKeyDown = PageNumKeyDown
end
end

View File

@ -0,0 +1,64 @@
object GoPageForm: TGoPageForm
Left = 305
Top = 180
ActiveControl = PageNum
BorderStyle = bsDialog
Caption = 'Go to Page Number'
ClientHeight = 116
Height = 116
ClientWidth = 231
Width = 231
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Position = poScreenCenter
PixelsPerInch = 96
object Bevel1: TBevel
Left = 11
Top = 8
Width = 209
Height = 57
Shape = bsFrame
end
object OKBtn: TBitBtn
Left = 35
Top = 76
Width = 77
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Kind = bkOK
Spacing = 3
end
object CancelBtn: TBitBtn
Left = 119
Top = 76
Width = 77
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkCancel
Spacing = 3
end
object PageNum: TSpinEdit
Left = 87
Top = 27
Width = 57
Height = 22
MaxValue = 0
MinValue = 1
TabOrder = 0
Value = 0
OnEnter = PageNumEnter
OnKeyDown = PageNumKeyDown
end
end

View File

@ -0,0 +1,18 @@
LazarusResources.Add('TGoPageForm','FORMDATA',[
'TPF0'#11'TGoPageForm'#10'GoPageForm'#4'Left'#3'1'#1#3'Top'#3#180#0#13'Active'
+'Control'#7#7'PageNum'#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Go to P'
+'age Number'#12'ClientHeight'#2't'#6'Height'#2't'#11'ClientWidth'#3#231#0#5
+'Width'#3#231#0#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Nam'
+'e'#6#6'Tahoma'#10'Font.Style'#11#6'fsBold'#0#8'Position'#7#14'poScreenCente'
+'r'#13'PixelsPerInch'#2'`'#0#6'TBevel'#6'Bevel1'#4'Left'#2#11#3'Top'#2#8#5'W'
+'idth'#3#209#0#6'Height'#2'9'#5'Shape'#7#7'bsFrame'#0#0#7'TBitBtn'#5'OKBtn'#4
+'Left'#2'#'#3'Top'#2'L'#5'Width'#2'M'#6'Height'#2#27#10'Font.Color'#7#7'clBl'
+'ack'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#0#10
+'ParentFont'#8#8'TabOrder'#2#1#4'Kind'#7#4'bkOK'#7'Spacing'#2#3#0#0#7'TBitBt'
+'n'#9'CancelBtn'#4'Left'#2'w'#3'Top'#2'L'#5'Width'#2'M'#6'Height'#2#27#10'Fo'
+'nt.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Fo'
+'nt.Style'#11#0#10'ParentFont'#8#8'TabOrder'#2#2#4'Kind'#7#8'bkCancel'#7'Spa'
+'cing'#2#3#0#0#9'TSpinEdit'#7'PageNum'#4'Left'#2'W'#3'Top'#2#27#5'Width'#2'9'
+#6'Height'#2#22#8'MaxValue'#2#0#8'MinValue'#2#1#8'TabOrder'#2#0#5'Value'#2#0
+#7'OnEnter'#7#12'PageNumEnter'#9'OnKeyDown'#7#14'PageNumKeyDown'#0#0#0
]);

View File

@ -0,0 +1,54 @@
unit Gopage;
interface
uses
{$IFNDEF LCL} WinTypes, WinProcs, {$ELSE} LclIntf, LResources, {$ENDIF}
Classes, Graphics, Forms, Controls, Buttons,
StdCtrls, ExtCtrls, Spin;
type
TGoPageForm = class(TForm)
OKBtn: TBitBtn;
CancelBtn: TBitBtn;
Bevel1: TBevel;
PageNum: TSpinEdit;
procedure PageNumEnter(Sender: TObject);
procedure PageNumKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
GoPageForm: TGoPageForm;
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$ENDIF}
procedure TGoPageForm.PageNumEnter(Sender: TObject);
begin
PageNum.SelectAll;
end;
procedure TGoPageForm.PageNumKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
Begin
Key := 0;
OKBtn.Click;
end;
end;
initialization
{$IFDEF LCL}
{$I Gopage.lrs} {Include form's resource file}
{$ENDIF}
end.

View File

@ -0,0 +1,61 @@
object AboutBox: TAboutBox
Left = 286
Top = 214
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'About'
ClientHeight = 184
ClientWidth = 306
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 16
object BitBtn1: TBitBtn
Left = 114
Top = 146
Width = 77
Height = 30
TabOrder = 0
Kind = bkOK
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 306
Height = 137
Align = alTop
BevelInner = bvLowered
BevelOuter = bvNone
Caption = 'Panel1'
TabOrder = 1
object Viewer: THTMLViewer
Left = 1
Top = 1
Width = 304
Height = 135
ViewImages = False
Enabled = False
TabOrder = 0
Align = alClient
BorderStyle = htSingle
HistoryMaxCount = 0
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
NoSelect = True
ScrollBars = ssNone
CharSet = DEFAULT_CHARSET
PrintMarginLeft = 2.000000000000000000
PrintMarginRight = 2.000000000000000000
PrintMarginTop = 2.000000000000000000
PrintMarginBottom = 2.000000000000000000
PrintScale = 1.000000000000000000
htOptions = []
end
end
end

View File

@ -0,0 +1,61 @@
object AboutBox: TAboutBox
Left = 286
Top = 214
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'About'
ClientHeight = 184
Height = 184
ClientWidth = 306
Width = 306
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Position = poScreenCenter
PixelsPerInch = 96
object BitBtn1: TBitBtn
Left = 114
Top = 146
Width = 77
Height = 30
TabOrder = 0
Kind = bkOK
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 306
Height = 137
Align = alTop
BevelInner = bvLowered
BevelOuter = bvNone
Caption = 'Panel1'
TabOrder = 1
object Viewer: THTMLViewer
Left = 1
Top = 1
Width = 304
Height = 135
ViewImages = False
Enabled = False
TabOrder = 0
Align = alClient
BorderStyle = htSingle
HistoryMaxCount = 0
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
NoSelect = True
ScrollBars = ssNone
CharSet = DEFAULT_CHARSET
PrintMarginLeft = 2.000000000000000000
PrintMarginRight = 2.000000000000000000
PrintMarginTop = 2.000000000000000000
PrintMarginBottom = 2.000000000000000000
PrintScale = 1.000000000000000000
htOptions = []
end
end
end

View File

@ -0,0 +1,20 @@
LazarusResources.Add('TAboutBox','FORMDATA',[
'TPF0'#9'TAboutBox'#8'AboutBox'#4'Left'#3#30#1#3'Top'#3#214#0#11'BorderIcons'
+#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'About'#12
+'ClientHeight'#3#184#0#6'Height'#3#184#0#11'ClientWidth'#3'2'#1#5'Width'#3'2'
+#1#5'Color'#7#9'clBtnFace'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Co'
+'lor'#7#12'clWindowText'#11'Font.Height'#2#243#9'Font.Name'#6#5'Arial'#10'Fo'
+'nt.Style'#11#0#8'Position'#7#14'poScreenCenter'#13'PixelsPerInch'#2'`'#0#7
+'TBitBtn'#7'BitBtn1'#4'Left'#2'r'#3'Top'#3#146#0#5'Width'#2'M'#6'Height'#2#30
+#8'TabOrder'#2#0#4'Kind'#7#4'bkOK'#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#3'Top'
+#2#0#5'Width'#3'2'#1#6'Height'#3#137#0#5'Align'#7#5'alTop'#10'BevelInner'#7#9
+'bvLowered'#10'BevelOuter'#7#6'bvNone'#7'Caption'#6#6'Panel1'#8'TabOrder'#2#1
+#0#11'THTMLViewer'#6'Viewer'#4'Left'#2#1#3'Top'#2#1#5'Width'#3'0'#1#6'Height'
+#3#135#0#10'ViewImages'#8#7'Enabled'#8#8'TabOrder'#2#0#5'Align'#7#8'alClient'
+#11'BorderStyle'#7#8'htSingle'#15'HistoryMaxCount'#2#0#11'DefFontName'#6#15
+'Times New Roman'#14'DefPreFontName'#6#11'Courier New'#8'NoSelect'#9#10'Scro'
+'llBars'#7#6'ssNone'#7'CharSet'#7#15'DEFAULT_CHARSET'#15'PrintMarginLeft'#5#0
+#0#0#0#0#0#0#128#0'@'#16'PrintMarginRight'#5#0#0#0#0#0#0#0#128#0'@'#14'Print'
+'MarginTop'#5#0#0#0#0#0#0#0#128#0'@'#17'PrintMarginBottom'#5#0#0#0#0#0#0#0
+#128#0'@'#10'PrintScale'#5#0#0#0#0#0#0#0#128#255'?'#9'htOptions'#11#0#0#0#0#0
]);

View File

@ -0,0 +1,92 @@
unit HTMLAbt;
interface
uses
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, LCLVersion, {$ENDIF}
SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, Htmlview, ExtCtrls;
const
Version = '9.45';
type
TAboutBox = class(TForm)
BitBtn1: TBitBtn;
Panel1: TPanel;
Viewer: THTMLViewer;
private
{ Private declarations }
public
{ Public declarations }
constructor CreateIt(Owner: TComponent; const ProgName, CompName: string);
end;
var
AboutBox: TAboutBox;
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$ENDIF}
constructor TAboutBox.CreateIt(Owner: TComponent; const ProgName, CompName: string);
var
S: string[210];
begin
inherited Create(Owner);
//Viewer.DefFontName := 'MS Sans Serif'; //Windows-only font
Viewer.DefFontName := 'Arial';
Viewer.DefFontSize := 9;
Viewer.DefFontColor := clNavy;
S :='<body bgcolor="ffffeb" text="000080">'+
'<center>'+
'<h1>'+ProgName+'</h1>'+
'<font color="Maroon">A demo program for the '+CompName+' component</font>'+
{$IFNDEF LCL}
'<h3>Version '+Version+' compiled with Delphi '+
{$ifdef Windows}
'1</h3>'+
{$endif}
{$ifdef Ver90}
'2</h3>'+
{$endif}
{$ifdef Ver100}
'3</h3>'+
{$endif}
{$ifdef Ver120}
'4</h3>'+
{$endif}
{$ifdef Ver130}
'5</h3>'+
{$endif}
{$ifdef Ver140}
'6</h3>'+
{$endif}
{$ifdef Ver150}
'7</h3>'+
{$endif}
{$ifdef Ver170}
'2005</h3>'+
{$endif}
{$ifdef Ver180}
'2006</h3>'+
{$endif}
{$ELSE}
'<h3>Version ' + Version + ' compiled with Lazarus ' + lcl_version + '</h3>' +
{$ENDIF}
'</center>'+
'</body>';
Viewer.LoadFromBuffer(@S[1], Length(S), '');
end;
initialization
{$IFDEF LCL}
{$I Htmlabt.lrs} {Include form's resource file}
{$ENDIF}
end.

View File

@ -0,0 +1,27 @@
object ImageForm: TImageForm
Left = 591
Top = 236
AutoScroll = False
Caption = 'ImageForm'
ClientHeight = 199
ClientWidth = 216
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = True
Position = poDefaultPosOnly
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 317
Height = 306
AutoSize = True
end
end

View File

@ -0,0 +1,27 @@
object ImageForm: TImageForm
Left = 591
Top = 236
AutoScroll = False
Caption = 'ImageForm'
ClientHeight = 199
Height = 199
ClientWidth = 216
Width = 216
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
FormStyle = fsStayOnTop
Position = poDefaultPosOnly
OnShow = FormShow
PixelsPerInch = 96
object Image1: TImage
Left = 0
Top = 0
Width = 317
Height = 306
AutoSize = True
end
end

View File

@ -0,0 +1,10 @@
LazarusResources.Add('TImageForm','FORMDATA',[
'TPF0'#10'TImageForm'#9'ImageForm'#4'Left'#3'O'#2#3'Top'#3#236#0#10'AutoScrol'
+'l'#8#7'Caption'#6#9'ImageForm'#12'ClientHeight'#3#199#0#6'Height'#3#199#0#11
+'ClientWidth'#3#216#0#5'Width'#3#216#0#5'Color'#7#9'clBtnFace'#12'Font.Chars'
+'et'#7#15'DEFAULT_CHARSET'#10'Font.Color'#7#12'clWindowText'#11'Font.Height'
+#2#245#9'Font.Name'#6#5'Arial'#10'Font.Style'#11#0#9'FormStyle'#7#11'fsStayO'
+'nTop'#8'Position'#7#16'poDefaultPosOnly'#6'OnShow'#7#8'FormShow'#13'PixelsP'
+'erInch'#2'`'#0#6'TImage'#6'Image1'#4'Left'#2#0#3'Top'#2#0#5'Width'#3'='#1#6
+'Height'#3'2'#1#8'AutoSize'#9#0#0#0
]);

View File

@ -0,0 +1,43 @@
unit ImgForm;
interface
uses
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TImageForm = class(TForm)
Image1: TImage;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
ImageFormBitmap: TBitmap;
end;
var
ImageForm: TImageForm;
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$ENDIF}
procedure TImageForm.FormShow(Sender: TObject);
begin
Image1.Picture.Bitmap := ImageFormBitmap;
Width := Image1.Width + 30; {makes for better fit}
ClientHeight := Image1.Height;
ClientWidth := Image1.Width;
end;
initialization
{$IFDEF LCL}
{$I ImgForm.lrs} {Include form's resource file}
{$ENDIF}
end.

View File

@ -0,0 +1,278 @@
object Form1: TForm1
Left = 372
Height = 439
Top = 267
Width = 621
ClientHeight = 412
ClientWidth = 621
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Menu = MainMenu
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '0.9.31'
object Panel1: TPanel
Left = 0
Height = 18
Top = 394
Width = 621
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvLowered
BevelOuter = bvNone
ClientHeight = 18
ClientWidth = 621
TabOrder = 0
object ProgressBar: TProgressBar
Left = 470
Height = 16
Top = 1
Width = 150
Align = alRight
TabOrder = 0
Visible = False
end
end
object Panel2: TPanel
Left = 0
Height = 33
Top = 0
Width = 621
Align = alTop
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 621
TabOrder = 1
object editURL: TEdit
Left = 190
Height = 23
Top = 4
Width = 337
OnKeyDown = editURLKeyDown
TabStop = False
TabOrder = 3
end
object ReloadButton: TButton
Left = 10
Height = 24
Top = 4
Width = 59
Caption = '&Reload'
Enabled = False
OnClick = ReloadButtonClick
TabOrder = 0
end
object BackButton: TButton
Left = 69
Height = 24
Top = 4
Width = 59
Caption = '&Back'
Enabled = False
OnClick = FwdBackClick
TabOrder = 1
end
object FwdButton: TButton
Left = 128
Height = 24
Top = 4
Width = 59
Caption = '&Forward'
Enabled = False
OnClick = FwdBackClick
TabOrder = 2
end
end
object Panel3: TPanel
Left = 0
Height = 361
Top = 33
Width = 621
Align = alClient
BevelInner = bvLowered
BevelOuter = bvNone
Caption = 'Panel3'
ClientHeight = 361
ClientWidth = 621
TabOrder = 2
object Viewer: THTMLViewer
Left = 1
Height = 359
Top = 1
Width = 619
OnHotSpotCovered = HotSpotChange
OnHotSpotClick = HotSpotClick
OnFormSubmit = SubmitEvent
OnHistoryChange = HistoryChange
OnProgress = ViewerProgress
TabStop = True
TabOrder = 0
Align = alClient
DefBackground = clWindow
BorderStyle = htFocused
HistoryMaxCount = 6
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
DefFontColor = clWindowText
DefOverLinkColor = clFuchsia
ImageCacheCount = 6
NoSelect = False
CharSet = DEFAULT_CHARSET
PrintMarginLeft = 2
PrintMarginRight = 2
PrintMarginTop = 2
PrintMarginBottom = 2
PrintScale = 1
OnMouseMove = ViewerMouseMove
OnProcessing = ProcessingHandler
OnPrintHTMLHeader = ViewerPrintHTMLHeader
OnPrintHTMLFooter = ViewerPrintHTMLFooter
OnInclude = ViewerInclude
OnSoundRequest = SoundRequest
OnMetaRefresh = MetaRefreshEvent
OnObjectClick = ObjectClick
OnRightClick = RightClick
end
end
object OpenDialog: TOpenDialog
DefaultExt = '.htm'
Filter = 'html files|*.htm;*.html|all files|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
left = 329
top = 2
end
object MainMenu: TMainMenu
left = 291
top = 4
object File1: TMenuItem
Caption = '&File'
object Open: TMenuItem
Caption = '&Open'
ShortCut = 114
OnClick = OpenFileClick
end
object OpenTextFile: TMenuItem
Caption = 'Open &Text File'
OnClick = OpenTextFileClick
end
object OpenImageFile: TMenuItem
Caption = 'Open &Image File'
OnClick = OpenImageFileClick
end
object PrinterSetup1: TMenuItem
Caption = 'Printer Setup...'
OnClick = PrinterSetup1Click
end
object Printpreview: TMenuItem
Caption = 'Print pre&view'
Enabled = False
OnClick = PrintpreviewClick
end
object Print1: TMenuItem
Caption = '&Print...'
Enabled = False
OnClick = Print1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object Edit2: TMenuItem
Caption = '&Edit'
OnClick = Edit2Click
object Find1: TMenuItem
Caption = '&Find'
Enabled = False
OnClick = Find1Click
end
object CopyItem: TMenuItem
Caption = '&Copy'
ShortCut = 16451
OnClick = CopyItemClick
end
object N2: TMenuItem
Caption = '-'
end
object SelectAllItem: TMenuItem
Caption = 'Select &All'
Enabled = False
OnClick = SelectAllItemClick
end
end
object options1: TMenuItem
Caption = '&Options'
object ShowImages: TMenuItem
Caption = '&Show images'
OnClick = ShowImagesClick
end
object Fonts: TMenuItem
Caption = 'Default &Font/Colors...'
OnClick = FontColorsClick
end
end
object HistoryMenuItem: TMenuItem
Caption = '&History'
Visible = False
end
object About1: TMenuItem
Caption = '&About'
OnClick = About1Click
end
end
object PrintDialog: TPrintDialog
FromPage = 1
MinPage = 1
MaxPage = 9999
Options = [poPageNums]
ToPage = 1
left = 362
top = 1
end
object FindDialog: TFindDialog
Options = [frDown, frHideWholeWord, frDisableWholeWord]
OnFind = FindDialogFind
left = 249
top = 65535
end
object PopupMenu: TPopupMenu
left = 400
top = 1
object Viewimage: TMenuItem
Caption = '&View image'
OnClick = ViewimageClick
end
object CopyImageToClipboard: TMenuItem
Caption = '&Copy image to clipboard'
OnClick = CopyImageToClipboardClick
end
object N3: TMenuItem
Caption = '-'
end
object OpenInNewWindow: TMenuItem
Caption = '&Open in new window'
OnClick = OpenInNewWindowClick
end
end
object MetaTimer: TTimer
Enabled = False
OnTimer = MetaTimerTimer
left = 242
top = 75
end
object Timer1: TTimer
Interval = 200
OnTimer = Timer1Timer
left = 291
top = 71
end
object PrinterSetupDialog: TPrinterSetupDialog
left = 448
end
end

View File

@ -0,0 +1,84 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3't'#1#6'Height'#3#183#1#3'Top'#3#11#1#5'Wi'
+'dth'#3'm'#2#12'ClientHeight'#3#156#1#11'ClientWidth'#3'm'#2#5'Color'#7#9'cl'
+'BtnFace'#10'Font.Color'#7#12'clWindowText'#11'Font.Height'#2#243#9'Font.Nam'
+'e'#6#5'Arial'#4'Menu'#7#8'MainMenu'#8'OnCreate'#7#10'FormCreate'#9'OnDestro'
+'y'#7#11'FormDestroy'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.31'#0#6
+'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2#18#3'Top'#3#138#1#5'Width'#3'm'#2
+#5'Align'#7#8'alBottom'#9'Alignment'#7#13'taLeftJustify'#10'BevelInner'#7#9
+'bvLowered'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#18#11'ClientWidth'
+#3'm'#2#8'TabOrder'#2#0#0#12'TProgressBar'#11'ProgressBar'#4'Left'#3#214#1#6
+'Height'#2#16#3'Top'#2#1#5'Width'#3#150#0#5'Align'#7#7'alRight'#8'TabOrder'#2
+#0#7'Visible'#8#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#0#6'Height'#2'!'#3'Top'#2
+#0#5'Width'#3'm'#2#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientH'
+'eight'#2'!'#11'ClientWidth'#3'm'#2#8'TabOrder'#2#1#0#5'TEdit'#7'editURL'#4
+'Left'#3#190#0#6'Height'#2#23#3'Top'#2#4#5'Width'#3'Q'#1#9'OnKeyDown'#7#14'e'
+'ditURLKeyDown'#7'TabStop'#8#8'TabOrder'#2#3#0#0#7'TButton'#12'ReloadButton'
+#4'Left'#2#10#6'Height'#2#24#3'Top'#2#4#5'Width'#2';'#7'Caption'#6#7'&Reload'
+#7'Enabled'#8#7'OnClick'#7#17'ReloadButtonClick'#8'TabOrder'#2#0#0#0#7'TButt'
+'on'#10'BackButton'#4'Left'#2'E'#6'Height'#2#24#3'Top'#2#4#5'Width'#2';'#7'C'
+'aption'#6#5'&Back'#7'Enabled'#8#7'OnClick'#7#12'FwdBackClick'#8'TabOrder'#2
+#1#0#0#7'TButton'#9'FwdButton'#4'Left'#3#128#0#6'Height'#2#24#3'Top'#2#4#5'W'
+'idth'#2';'#7'Caption'#6#8'&Forward'#7'Enabled'#8#7'OnClick'#7#12'FwdBackCli'
+'ck'#8'TabOrder'#2#2#0#0#0#6'TPanel'#6'Panel3'#4'Left'#2#0#6'Height'#3'i'#1#3
+'Top'#2'!'#5'Width'#3'm'#2#5'Align'#7#8'alClient'#10'BevelInner'#7#9'bvLower'
+'ed'#10'BevelOuter'#7#6'bvNone'#7'Caption'#6#6'Panel3'#12'ClientHeight'#3'i'
+#1#11'ClientWidth'#3'm'#2#8'TabOrder'#2#2#0#11'THTMLViewer'#6'Viewer'#4'Left'
+#2#1#6'Height'#3'g'#1#3'Top'#2#1#5'Width'#3'k'#2#16'OnHotSpotCovered'#7#13'H'
+'otSpotChange'#14'OnHotSpotClick'#7#12'HotSpotClick'#12'OnFormSubmit'#7#11'S'
+'ubmitEvent'#15'OnHistoryChange'#7#13'HistoryChange'#10'OnProgress'#7#14'Vie'
+'werProgress'#7'TabStop'#9#8'TabOrder'#2#0#5'Align'#7#8'alClient'#13'DefBack'
+'ground'#7#8'clWindow'#11'BorderStyle'#7#9'htFocused'#15'HistoryMaxCount'#2#6
+#11'DefFontName'#6#15'Times New Roman'#14'DefPreFontName'#6#11'Courier New'
+#12'DefFontColor'#7#12'clWindowText'#16'DefOverLinkColor'#7#9'clFuchsia'#15
+'ImageCacheCount'#2#6#8'NoSelect'#8#7'CharSet'#7#15'DEFAULT_CHARSET'#15'Prin'
+'tMarginLeft'#5#0#0#0#0#0#0#0#128#0'@'#16'PrintMarginRight'#5#0#0#0#0#0#0#0
+#128#0'@'#14'PrintMarginTop'#5#0#0#0#0#0#0#0#128#0'@'#17'PrintMarginBottom'#5
+#0#0#0#0#0#0#0#128#0'@'#10'PrintScale'#5#0#0#0#0#0#0#0#128#255'?'#11'OnMouse'
+'Move'#7#15'ViewerMouseMove'#12'OnProcessing'#7#17'ProcessingHandler'#17'OnP'
+'rintHTMLHeader'#7#21'ViewerPrintHTMLHeader'#17'OnPrintHTMLFooter'#7#21'View'
+'erPrintHTMLFooter'#9'OnInclude'#7#13'ViewerInclude'#14'OnSoundRequest'#7#12
+'SoundRequest'#13'OnMetaRefresh'#7#16'MetaRefreshEvent'#13'OnObjectClick'#7
+#11'ObjectClick'#12'OnRightClick'#7#10'RightClick'#0#0#0#11'TOpenDialog'#10
+'OpenDialog'#10'DefaultExt'#6#4'.htm'#6'Filter'#6'%html files|*.htm;*.html|a'
+'ll files|*.*'#7'Options'#11#14'ofHideReadOnly'#15'ofPathMustExist'#15'ofFil'
+'eMustExist'#0#4'left'#3'I'#1#3'top'#2#2#0#0#9'TMainMenu'#8'MainMenu'#4'left'
+#3'#'#1#3'top'#2#4#0#9'TMenuItem'#5'File1'#7'Caption'#6#5'&File'#0#9'TMenuIt'
+'em'#4'Open'#7'Caption'#6#5'&Open'#8'ShortCut'#2'r'#7'OnClick'#7#13'OpenFile'
+'Click'#0#0#9'TMenuItem'#12'OpenTextFile'#7'Caption'#6#15'Open &Text File'#7
+'OnClick'#7#17'OpenTextFileClick'#0#0#9'TMenuItem'#13'OpenImageFile'#7'Capti'
+'on'#6#16'Open &Image File'#7'OnClick'#7#18'OpenImageFileClick'#0#0#9'TMenuI'
+'tem'#13'PrinterSetup1'#7'Caption'#6#16'Printer Setup...'#7'OnClick'#7#18'Pr'
+'interSetup1Click'#0#0#9'TMenuItem'#12'Printpreview'#7'Caption'#6#14'Print p'
+'re&view'#7'Enabled'#8#7'OnClick'#7#17'PrintpreviewClick'#0#0#9'TMenuItem'#6
+'Print1'#7'Caption'#6#9'&Print...'#7'Enabled'#8#7'OnClick'#7#11'Print1Click'
+#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#5'Exit1'#7'Captio'
+'n'#6#5'E&xit'#7'OnClick'#7#10'Exit1Click'#0#0#0#9'TMenuItem'#5'Edit2'#7'Cap'
+'tion'#6#5'&Edit'#7'OnClick'#7#10'Edit2Click'#0#9'TMenuItem'#5'Find1'#7'Capt'
+'ion'#6#5'&Find'#7'Enabled'#8#7'OnClick'#7#10'Find1Click'#0#0#9'TMenuItem'#8
+'CopyItem'#7'Caption'#6#5'&Copy'#8'ShortCut'#3'C@'#7'OnClick'#7#13'CopyItemC'
+'lick'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'SelectAl'
+'lItem'#7'Caption'#6#11'Select &All'#7'Enabled'#8#7'OnClick'#7#18'SelectAllI'
+'temClick'#0#0#0#9'TMenuItem'#8'options1'#7'Caption'#6#8'&Options'#0#9'TMenu'
+'Item'#10'ShowImages'#7'Caption'#6#12'&Show images'#7'OnClick'#7#15'ShowImag'
+'esClick'#0#0#9'TMenuItem'#5'Fonts'#7'Caption'#6#23'Default &Font/Colors...'
+#7'OnClick'#7#15'FontColorsClick'#0#0#0#9'TMenuItem'#15'HistoryMenuItem'#7'C'
,'aption'#6#8'&History'#7'Visible'#8#0#0#9'TMenuItem'#6'About1'#7'Caption'#6#6
+'&About'#7'OnClick'#7#11'About1Click'#0#0#0#12'TPrintDialog'#11'PrintDialog'
+#8'FromPage'#2#1#7'MinPage'#2#1#7'MaxPage'#3#15''''#7'Options'#11#10'poPageN'
+'ums'#0#6'ToPage'#2#1#4'left'#3'j'#1#3'top'#2#1#0#0#11'TFindDialog'#10'FindD'
+'ialog'#7'Options'#11#6'frDown'#15'frHideWholeWord'#18'frDisableWholeWord'#0
+#6'OnFind'#7#14'FindDialogFind'#4'left'#3#249#0#3'top'#4#255#255#0#0#0#0#10
+'TPopupMenu'#9'PopupMenu'#4'left'#3#144#1#3'top'#2#1#0#9'TMenuItem'#9'Viewim'
+'age'#7'Caption'#6#11'&View image'#7'OnClick'#7#14'ViewimageClick'#0#0#9'TMe'
+'nuItem'#20'CopyImageToClipboard'#7'Caption'#6#24'&Copy image to clipboard'#7
+'OnClick'#7#25'CopyImageToClipboardClick'#0#0#9'TMenuItem'#2'N3'#7'Caption'#6
+#1'-'#0#0#9'TMenuItem'#15'OpenInNewWindow'#7'Caption'#6#19'&Open in new wind'
+'ow'#7'OnClick'#7#20'OpenInNewWindowClick'#0#0#0#6'TTimer'#9'MetaTimer'#7'En'
+'abled'#8#7'OnTimer'#7#14'MetaTimerTimer'#4'left'#3#242#0#3'top'#2'K'#0#0#6
+'TTimer'#6'Timer1'#8'Interval'#3#200#0#7'OnTimer'#7#11'Timer1Timer'#4'left'#3
+'#'#1#3'top'#2'G'#0#0#19'TPrinterSetupDialog'#18'PrinterSetupDialog'#4'left'
+#3#192#1#0#0#0
]);

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,70 @@
unit pageloader;
{$mode delphi}
interface
uses
Classes, SysUtils;
type
{ TPageLoader }
TPageLoader = class
public
Contents: string;
ContentsList: TStringList;
constructor Create;
procedure LoadFromURL(AURL: string);
end;
var
MyPageLoader: TPageLoader;
implementation
uses httpsend;
{ TPageLoader }
constructor TPageLoader.Create;
begin
ContentsList := TStringList.Create;
end;
procedure TPageLoader.LoadFromURL(AURL: string);
var
Client: THttpSend;
begin
Client := THttpSend.Create;
// if checkGZip.Checked then
begin
Client.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
Client.Headers.Add('Accept-Language: en-gb,en;q=0.5');
// Client.Headers.Add('Accept-Encoding: gzip,deflate');
Client.Headers.Add('Accept-Charset: utf-8;q=0.7,*;q=0.7'); // ISO-8859-1,
end;
// Client.UserAgent := AUserAgent;
Client.HttpMethod('GET', AURL);
Client.Document.Position := 0;
ContentsList.LoadFromStream(Client.Document);
Contents := ContentsList.Text;
Client.Free;
end;
initialization
MyPageLoader := TPageLoader.Create;
finalization
MyPageLoader.Free;
end.

View File

@ -0,0 +1,674 @@
object PreviewForm: TPreviewForm
Left = 361
Top = 158
Width = 742
Height = 545
Caption = 'Preview Form'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFFFFFFFFFF000000000000000000FCCCCCCCCCCCCF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FCCCCCCCCCCCCF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFF000000000000000
0000FFFFFFFFFFFF00000000000000000000FCCCCCCCCCC00F00000000000000
0000FFFFF0000F00FF000000000000000000FFFF0777700FFF00000000000000
0000FFF07777770FFF000000000000000000FC0777777770CF00000000000000
0000FF0444444440FF000000000000000000FF0444444440FF00000000000000
0000FF0444444440FF000000000000000000FC0777777770CF00000000000000
0000FFF07777770FFF000000000000000000FFFF077770FFFF00000000000000
0000FFFFF0000FFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0001FFFE0001FFFE0001F7FE00
01E7FE0001CFFE00019FFE00013FFE00007FFE0000FFFE0001FFFE0001FFFE00
01FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE00
01FFFE0001FFFE0001FFFE0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
OldCreateOrder = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBarPanel: TPanel
Left = 0
Top = 0
Width = 734
Height = 35
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object GridBut: TSpeedButton
Left = 391
Top = 4
Width = 25
Height = 25
Hint = 'Show/Hide Grid'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777877877877877777787787787787777880880880880887777877877877
8777777877877877877778808808808808877778778778778777777877877877
8777788088088088088777787787787787777778778778778777788088088088
0887777877877877877777787787787787777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = GridButClick
end
object ZoomCursorBut: TSpeedButton
Left = 532
Top = 4
Width = 25
Height = 25
Hint = 'Selects the Zoom Tool to zoom in or out'
GroupIndex = 2
Down = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F8F3333333333333000333333333333F888333333333333
000333333333333F888333333333333000333333333333F88833333333333300
033333333FFF3F888333333800083B803333333F8883F88833333308888800B3
33333388333888833333308F7F7F8033333338F333F338F3333388F7F9F7F883
3333383338F3383F3333087F797F780333338F33F8FFF38F333308F99999F803
33338F388888338F3333087F797F7803333383F338F33383333388F7F9F7F883
333338F3383338F33333308F7F7F80333333383FF333F8333333330888880333
333333883FF88333333333380008333333333333888333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = ZoomCursorButClick
end
object HandCursorBut: TSpeedButton
Left = 558
Top = 4
Width = 25
Height = 25
Hint = 'Selects the Hand Tool to pan across the Page'
GroupIndex = 2
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
33333330FFFFFFF03333330FFFFFFFFF0333330FFFFFFF0FF033330FFFFFFF00
FF03330FFFFFFF030F03330F0F0F0F033003330F0F0F0F033333330F0F0F0F03
3333330F0F0F0F033333330F0F0F0F03333333300F0F0F03333333330F0F0F03
33333333000F0F0333333333330F003333333333330003333333}
ParentShowHint = False
ShowHint = True
OnClick = HandCursorButClick
end
object OnePageBut: TSpeedButton
Left = 595
Top = 4
Width = 25
Height = 25
Hint = 'Display One page at a time'
GroupIndex = 3
Down = True
Caption = '&1'
ParentShowHint = False
ShowHint = True
OnClick = ScrollBox1Resize
OnMouseUp = OnePageButMouseUp
end
object TwoPageBut: TSpeedButton
Left = 621
Top = 4
Width = 25
Height = 25
Hint = 'Display Two pages side by side'
GroupIndex = 3
Caption = '&2'
ParentShowHint = False
ShowHint = True
OnClick = TwoPageButClick
end
object FitPageBut: TSpeedButton
Left = 340
Top = 4
Width = 25
Height = 25
Hint = 'Fit to Page'
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
00FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFF
F0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFF
F0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000
F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF000000000000FF}
ParentShowHint = False
ShowHint = True
OnClick = FitPageButClick
end
object FitWidthBut: TSpeedButton
Left = 365
Top = 4
Width = 25
Height = 25
Hint = 'Fit to Width'
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF0FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
ParentShowHint = False
ShowHint = True
OnClick = FitWidthButClick
end
object Bevel1: TBevel
Left = 0
Top = 33
Width = 734
Height = 2
Align = alBottom
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 220
Top = 2
Width = 2
Height = 28
end
object Bevel3: TBevel
Left = 332
Top = 2
Width = 2
Height = 28
end
object Bevel4: TBevel
Left = 520
Top = 2
Width = 2
Height = 28
end
object Bevel5: TBevel
Left = 588
Top = 2
Width = 2
Height = 28
end
object Bevel6: TBevel
Left = 652
Top = 2
Width = 2
Height = 28
end
object Bevel7: TBevel
Left = 423
Top = 2
Width = 2
Height = 28
end
object PrintBut: TBitBtn
Left = 5
Top = 4
Width = 76
Height = 25
Hint = 'Print the Current Document'
Caption = '&Print...'
TabOrder = 0
OnClick = PrintButClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222200000000000222207777777770702200000000000007020777777BBB77
0002077777788877070200000000000007700777777777707070200000000007
0700220FFFFFFFF070702220F00000F000022220FFFFFFFF022222220F00000F
022222220FFFFFFFF02222222000000000222222222222222222}
Spacing = 8
end
object NextPageBut: TBitBtn
Left = 148
Top = 4
Width = 66
Height = 25
Hint = 'Advance to Next Page in Document'
Caption = '&Next'
TabOrder = 1
OnClick = NextPageButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333333300003333330033333333333300003333
330E03333333333300003333330EE0333333333300003333330EEE0333333333
00003333330EEEE03333333300003333330EEEEE0333333300003333330EEEEE
E033333300003333330EEEEEEE03333300003333330EEEEEEE03333300003333
330EEEEEE033333300003333330EEEEE0333333300003333330EEEE033333333
00003333330EEE033333333300003333330EE0333333333300003333330E0333
3333333300003333330033333333333300003333333333333333333300003333
33333333333333330000}
Layout = blGlyphRight
Margin = 4
Spacing = 2
end
object PrevPageBut: TBitBtn
Left = 82
Top = 4
Width = 65
Height = 25
Hint = 'Move to Previous Page in Document'
Caption = 'Pre&v'
Enabled = False
TabOrder = 2
OnClick = PrevPageButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333333300003333333333300333333300003333
3333330E0333333300003333333330EE033333330000333333330EEE03333333
000033333330EEEE0333333300003333330EEEEE033333330000333330EEEEEE
03333333000033330EEEEEEE03333333000033330EEEEEEE0333333300003333
30EEEEEE0333333300003333330EEEEE03333333000033333330EEEE03333333
0000333333330EEE0333333300003333333330EE03333333000033333333330E
0333333300003333333333300333333300003333333333333333333300003333
33333333333333330000}
Margin = 6
Spacing = 2
end
object CloseBut: TBitBtn
Left = 660
Top = 4
Width = 61
Height = 25
Hint = 'Close the Print Preview window'
Cancel = True
Caption = '&Close'
TabOrder = 3
OnClick = CloseButClick
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
0333330000000000033333000000000003333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
03333306666666660333330FFFFFFFFF03333307777777770333330666666666
0333330FFFFFFFFF033333077777777703333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
03333306666666060333330FFFFFFF0F03333307777777870333330666666666
0333330FFFFFFFFF033333077777777703333306666666660333330FFFFFFFFF
0333330777777777033333066FFFFF660333330FF00000FF0333330778888877
033333066FFFFF660333330FF00000FF0333330778888877033333066FFFFF66
0333330FF00000FF033333077888887703333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
0333330000000000033333000000000003333300000000000333}
NumGlyphs = 3
end
object ZoomBox: TComboBox
Left = 228
Top = 6
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
OnChange = ZoomBoxChange
Items.Strings = (
'Fit To Page'
'Fit To Width'
'Custom'
'25%'
'50%'
'75%'
'100%'
'125%'
'150%'
'200%'
'300%'
'400%')
end
object UnitsBox: TComboBox
Left = 431
Top = 6
Width = 81
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 5
OnChange = UnitsBoxChange
Items.Strings = (
'Inches'
'Centimeters')
end
end
object StatBarPanel: TPanel
Left = 0
Top = 484
Width = 734
Height = 27
Align = alBottom
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
object CurPageLabel: TPanel
Left = 133
Top = 0
Width = 101
Height = 27
Hint = 'Displays the Current Page of the Document'
Align = alLeft
BevelOuter = bvLowered
Caption = 'CurPageLabel'
TabOrder = 0
end
object ZoomLabel: TPanel
Left = 234
Top = 0
Width = 88
Height = 27
Hint = 'Displays the Current Zoom Level (100% = normal)'
Align = alLeft
BevelOuter = bvLowered
Caption = 'ZoomLabel'
TabOrder = 1
end
object Panel1: TPanel
Left = 322
Top = 0
Width = 412
Height = 27
Hint = 'Displays Help for the object beneath the mouse'
Align = alClient
BevelOuter = bvLowered
TabOrder = 2
object HintLabel: TLabel
Left = 8
Top = 5
Width = 44
Height = 14
Hint = 'Displays Help for the object beneath the mouse'
Caption = 'HintLabel'
end
end
object MoveButPanel: TPanel
Left = 0
Top = 0
Width = 133
Height = 27
Align = alLeft
BevelOuter = bvNone
Caption = 'MoveButPanel'
TabOrder = 3
object FirstPageSpeed: TSpeedButton
Left = 1
Top = 2
Width = 25
Height = 25
Hint = 'Go to First Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000333330
033333000033333003333388883333388333330EE033330E0333330FF033330F
03333387783333878333330EE03330EE0333330FF03330FF0333338778333877
8333330EE0330EEE0333330FF0330FFF03333387783387778333330EE030EEEE
0333330FF030FFFF03333387783877778333330EE00EEEEE0333330FF00FFFFF
03333387788777778333330EE0EEEEEE0333330FF0FFFFFF0333338778777777
8333330EEEEEEEEE0333330FFFFFFFFF03333387777777778333330EEEEEEEEE
0333330FFFFFFFFF03333387777777778333330EE0EEEEEE0333330FF0FFFFFF
03333387787777778333330EE00EEEEE0333330FF00FFFFF0333338778877777
8333330EE030EEEE0333330FF030FFFF03333387783877778333330EE0330EEE
0333330FF0330FFF03333387783387778333330EE03330EE0333330FF03330FF
03333387783338778333330EE033330E0333330FF033330F0333338778333387
8333330000333330033333000033333003333388883333388333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = FirstPageSpeedClick
end
object PrevPageSpeed: TSpeedButton
Left = 26
Top = 2
Width = 25
Height = 25
Hint = 'Move to Previous Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333300
3333333333333300333333333333338833333333333330E033333333333330F0
33333333333338783333333333330EE03333333333330FF03333333333338778
333333333330EEE0333333333330FFF0333333333338777833333333330EEEE0
33333333330FFFF033333333338777783333333330EEEEE03333333330FFFFF0
3333333338777778333333330EEEEEE0333333330FFFFFF03333333387777778
33333330EEEEEEE033333330FFFFFFF0333333387777777833333330EEEEEEE0
33333330FFFFFFF03333333877777778333333330EEEEEE0333333330FFFFFF0
33333333877777783333333330EEEEE03333333330FFFFF03333333338777778
33333333330EEEE033333333330FFFF03333333333877778333333333330EEE0
333333333330FFF033333333333877783333333333330EE03333333333330FF0
333333333333877833333333333330E033333333333330F03333333333333878
3333333333333300333333333333330033333333333333883333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = PrevPageButClick
end
object NextPageSpeed: TSpeedButton
Left = 51
Top = 2
Width = 25
Height = 25
Hint = 'Advance to Next Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300333333
33333333003333333333333388333333333333330E033333333333330F033333
3333333387833333333333330EE03333333333330FF033333333333387783333
333333330EEE0333333333330FFF03333333333387778333333333330EEEE033
333333330FFFF0333333333387777833333333330EEEEE03333333330FFFFF03
3333333387777783333333330EEEEEE0333333330FFFFFF03333333387777778
333333330EEEEEEE033333330FFFFFFF0333333387777777833333330EEEEEEE
033333330FFFFFFF0333333387777777833333330EEEEEE0333333330FFFFFF0
3333333387777778333333330EEEEE03333333330FFFFF033333333387777783
333333330EEEE033333333330FFFF0333333333387777833333333330EEE0333
333333330FFF03333333333387778333333333330EE03333333333330FF03333
3333333387783333333333330E033333333333330F0333333333333387833333
3333333300333333333333330033333333333333883333333333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = NextPageButClick
end
object LastPageSpeed: TSpeedButton
Left = 76
Top = 2
Width = 25
Height = 25
Hint = 'Go to Last Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333003333300
0033333003333300003333388333338888333330E033330EE0333330F033330F
F03333387833338778333330EE03330EE0333330FF03330FF033333877833387
78333330EEE0330EE0333330FFF0330FF03333387778338778333330EEEE030E
E0333330FFFF030FF03333387777838778333330EEEEE00EE0333330FFFFF00F
F03333387777788778333330EEEEEE0EE0333330FFFFFF0FF033333877777787
78333330EEEEEEEEE0333330FFFFFFFFF03333387777777778333330EEEEEEEE
E0333330FFFFFFFFF03333387777777778333330EEEEEE0EE0333330FFFFFF0F
F03333387777778778333330EEEEE00EE0333330FFFFF00FF033333877777887
78333330EEEE030EE0333330FFFF030FF03333387777838778333330EEE0330E
E0333330FFF0330FF03333387778338778333330EE03330EE0333330FF03330F
F03333387783338778333330E033330EE0333330F033330FF033333878333387
7833333003333300003333300333330000333338833333888833}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = LastPageSpeedClick
end
object PageNumSpeed: TSpeedButton
Left = 101
Top = 2
Width = 25
Height = 25
Hint = 'Go to Page by Page Number'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
333337FFFFFFFF77333330000000000333333777777777733333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = PageNumSpeedClick
end
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 35
Width = 734
Height = 449
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
BorderStyle = bsNone
Color = clBtnFace
ParentColor = False
TabOrder = 2
OnResize = ScrollBox1Resize
object ContainPanel: TPanel
Left = 0
Top = 0
Width = 489
Height = 329
BevelOuter = bvNone
Color = clBtnShadow
TabOrder = 0
object PagePanel: TPanel
Left = 44
Top = 32
Width = 209
Height = 265
BevelOuter = bvNone
Color = clWindow
TabOrder = 0
object PB1: TPaintBox
Left = 0
Top = 0
Width = 209
Height = 265
Hint =
'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
' Click && drag with Hand Tool to pan.'
Align = alClient
OnMouseDown = PB1MouseDown
OnMouseMove = PB1MouseMove
OnMouseUp = PB1MouseUp
OnPaint = PBPaint
end
end
object PagePanel2: TPanel
Left = 260
Top = 32
Width = 209
Height = 265
BevelOuter = bvNone
Color = clWindow
TabOrder = 1
Visible = False
object PB2: TPaintBox
Left = 0
Top = 0
Width = 209
Height = 265
Hint =
'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
' Click && drag with Hand Tool to pan.'
Align = alClient
OnPaint = PBPaint
end
end
end
end
object PrintDialog1: TPrintDialog
FromPage = 1
MinPage = 1
Options = [poPrintToFile, poPageNums]
Left = 538
Top = 90
end
end

View File

@ -0,0 +1,670 @@
object PreviewForm: TPreviewForm
Left = 361
Top = 158
Width = 734
Height = 511
Caption = 'Preview Form'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFFFFFFFFFF000000000000000000FCCCCCCCCCCCCF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FCCCCCCCCCCCCF00000000000000
0000FFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFF000000000000000
0000FFFFFFFFFFFF00000000000000000000FCCCCCCCCCC00F00000000000000
0000FFFFF0000F00FF000000000000000000FFFF0777700FFF00000000000000
0000FFF07777770FFF000000000000000000FC0777777770CF00000000000000
0000FF0444444440FF000000000000000000FF0444444440FF00000000000000
0000FF0444444440FF000000000000000000FC0777777770CF00000000000000
0000FFF07777770FFF000000000000000000FFFF077770FFFF00000000000000
0000FFFFF0000FFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0001FFFE0001FFFE0001F7FE00
01E7FE0001CFFE00019FFE00013FFE00007FFE0000FFFE0001FFFE0001FFFE00
01FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE0001FFFE00
01FFFE0001FFFE0001FFFE0001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
object ToolBarPanel: TPanel
Left = 0
Top = 0
Width = 734
Height = 35
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object GridBut: TSpeedButton
Left = 391
Top = 4
Width = 25
Height = 25
Hint = 'Show/Hide Grid'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777877877877877777787787787787777880880880880887777877877877
8777777877877877877778808808808808877778778778778777777877877877
8777788088088088088777787787787787777778778778778777788088088088
0887777877877877877777787787787787777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = GridButClick
end
object ZoomCursorBut: TSpeedButton
Left = 532
Top = 4
Width = 25
Height = 25
Hint = 'Selects the Zoom Tool to zoom in or out'
GroupIndex = 2
Down = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F8F3333333333333000333333333333F888333333333333
000333333333333F888333333333333000333333333333F88833333333333300
033333333FFF3F888333333800083B803333333F8883F88833333308888800B3
33333388333888833333308F7F7F8033333338F333F338F3333388F7F9F7F883
3333383338F3383F3333087F797F780333338F33F8FFF38F333308F99999F803
33338F388888338F3333087F797F7803333383F338F33383333388F7F9F7F883
333338F3383338F33333308F7F7F80333333383FF333F8333333330888880333
333333883FF88333333333380008333333333333888333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = ZoomCursorButClick
end
object HandCursorBut: TSpeedButton
Left = 558
Top = 4
Width = 25
Height = 25
Hint = 'Selects the Hand Tool to pan across the Page'
GroupIndex = 2
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
33333330FFFFFFF03333330FFFFFFFFF0333330FFFFFFF0FF033330FFFFFFF00
FF03330FFFFFFF030F03330F0F0F0F033003330F0F0F0F033333330F0F0F0F03
3333330F0F0F0F033333330F0F0F0F03333333300F0F0F03333333330F0F0F03
33333333000F0F0333333333330F003333333333330003333333}
ParentShowHint = False
ShowHint = True
OnClick = HandCursorButClick
end
object OnePageBut: TSpeedButton
Left = 595
Top = 4
Width = 25
Height = 25
Hint = 'Display One page at a time'
GroupIndex = 3
Down = True
Caption = '&1'
ParentShowHint = False
ShowHint = True
OnClick = ScrollBox1Resize
OnMouseUp = OnePageButMouseUp
end
object TwoPageBut: TSpeedButton
Left = 621
Top = 4
Width = 25
Height = 25
Hint = 'Display Two pages side by side'
GroupIndex = 3
Caption = '&2'
ParentShowHint = False
ShowHint = True
OnClick = TwoPageButClick
end
object FitPageBut: TSpeedButton
Left = 340
Top = 4
Width = 25
Height = 25
Hint = 'Fit to Page'
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
00FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFF
F0FFFF0FFFFFFFFFF0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFF
F0FFFF0F00000000F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF0F00000000
F0FFFF0FFFFFFFFFF0FFFF0FFFFFFFFFF0FFFF000000000000FF}
ParentShowHint = False
ShowHint = True
OnClick = FitPageButClick
end
object FitWidthBut: TSpeedButton
Left = 365
Top = 4
Width = 25
Height = 25
Hint = 'Fit to Width'
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF0FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00FFFFFFFFFFFFFF00FF0000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFF
FFF00000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
ParentShowHint = False
ShowHint = True
OnClick = FitWidthButClick
end
object Bevel1: TBevel
Left = 0
Top = 33
Width = 734
Height = 2
Align = alBottom
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 220
Top = 2
Width = 2
Height = 28
end
object Bevel3: TBevel
Left = 332
Top = 2
Width = 2
Height = 28
end
object Bevel4: TBevel
Left = 520
Top = 2
Width = 2
Height = 28
end
object Bevel5: TBevel
Left = 588
Top = 2
Width = 2
Height = 28
end
object Bevel6: TBevel
Left = 652
Top = 2
Width = 2
Height = 28
end
object Bevel7: TBevel
Left = 423
Top = 2
Width = 2
Height = 28
end
object PrintBut: TBitBtn
Left = 5
Top = 4
Width = 76
Height = 25
Hint = 'Print the Current Document'
Caption = '&Print...'
TabOrder = 0
OnClick = PrintButClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
22222200000000000222207777777770702200000000000007020777777BBB77
0002077777788877070200000000000007700777777777707070200000000007
0700220FFFFFFFF070702220F00000F000022220FFFFFFFF022222220F00000F
022222220FFFFFFFF02222222000000000222222222222222222}
Spacing = 8
end
object NextPageBut: TBitBtn
Left = 148
Top = 4
Width = 66
Height = 25
Hint = 'Advance to Next Page in Document'
Caption = '&Next'
TabOrder = 1
OnClick = NextPageButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333333300003333330033333333333300003333
330E03333333333300003333330EE0333333333300003333330EEE0333333333
00003333330EEEE03333333300003333330EEEEE0333333300003333330EEEEE
E033333300003333330EEEEEEE03333300003333330EEEEEEE03333300003333
330EEEEEE033333300003333330EEEEE0333333300003333330EEEE033333333
00003333330EEE033333333300003333330EE0333333333300003333330E0333
3333333300003333330033333333333300003333333333333333333300003333
33333333333333330000}
Layout = blGlyphRight
Margin = 4
Spacing = 2
end
object PrevPageBut: TBitBtn
Left = 82
Top = 4
Width = 65
Height = 25
Hint = 'Move to Previous Page in Document'
Caption = 'Pre&v'
Enabled = False
TabOrder = 2
OnClick = PrevPageButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333333300003333333333300333333300003333
3333330E0333333300003333333330EE033333330000333333330EEE03333333
000033333330EEEE0333333300003333330EEEEE033333330000333330EEEEEE
03333333000033330EEEEEEE03333333000033330EEEEEEE0333333300003333
30EEEEEE0333333300003333330EEEEE03333333000033333330EEEE03333333
0000333333330EEE0333333300003333333330EE03333333000033333333330E
0333333300003333333333300333333300003333333333333333333300003333
33333333333333330000}
Margin = 6
Spacing = 2
end
object CloseBut: TBitBtn
Left = 660
Top = 4
Width = 61
Height = 25
Hint = 'Close the Print Preview window'
Cancel = True
Caption = '&Close'
TabOrder = 3
OnClick = CloseButClick
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
0333330000000000033333000000000003333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
03333306666666660333330FFFFFFFFF03333307777777770333330666666666
0333330FFFFFFFFF033333077777777703333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
03333306666666060333330FFFFFFF0F03333307777777870333330666666666
0333330FFFFFFFFF033333077777777703333306666666660333330FFFFFFFFF
0333330777777777033333066FFFFF660333330FF00000FF0333330778888877
033333066FFFFF660333330FF00000FF0333330778888877033333066FFFFF66
0333330FF00000FF033333077888887703333306666666660333330FFFFFFFFF
033333077777777703333306666666660333330FFFFFFFFF0333330777777777
0333330000000000033333000000000003333300000000000333}
NumGlyphs = 3
end
object ZoomBox: TComboBox
Left = 228
Top = 6
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
OnChange = ZoomBoxChange
Items.Strings = (
'Fit To Page'
'Fit To Width'
'Custom'
'25%'
'50%'
'75%'
'100%'
'125%'
'150%'
'200%'
'300%'
'400%')
end
object UnitsBox: TComboBox
Left = 431
Top = 6
Width = 81
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 5
OnChange = UnitsBoxChange
Items.Strings = (
'Inches'
'Centimeters')
end
end
object StatBarPanel: TPanel
Left = 0
Top = 484
Width = 734
Height = 27
Align = alBottom
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
object CurPageLabel: TPanel
Left = 133
Top = 0
Width = 101
Height = 27
Hint = 'Displays the Current Page of the Document'
Align = alLeft
BevelOuter = bvLowered
Caption = 'CurPageLabel'
TabOrder = 0
end
object ZoomLabel: TPanel
Left = 234
Top = 0
Width = 88
Height = 27
Hint = 'Displays the Current Zoom Level (100% = normal)'
Align = alLeft
BevelOuter = bvLowered
Caption = 'ZoomLabel'
TabOrder = 1
end
object Panel1: TPanel
Left = 322
Top = 0
Width = 412
Height = 27
Hint = 'Displays Help for the object beneath the mouse'
Align = alClient
BevelOuter = bvLowered
TabOrder = 2
object HintLabel: TLabel
Left = 8
Top = 5
Width = 44
Height = 14
Hint = 'Displays Help for the object beneath the mouse'
Caption = 'HintLabel'
end
end
object MoveButPanel: TPanel
Left = 0
Top = 0
Width = 133
Height = 27
Align = alLeft
BevelOuter = bvNone
Caption = 'MoveButPanel'
TabOrder = 3
object FirstPageSpeed: TSpeedButton
Left = 1
Top = 2
Width = 25
Height = 25
Hint = 'Go to First Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000333330
033333000033333003333388883333388333330EE033330E0333330FF033330F
03333387783333878333330EE03330EE0333330FF03330FF0333338778333877
8333330EE0330EEE0333330FF0330FFF03333387783387778333330EE030EEEE
0333330FF030FFFF03333387783877778333330EE00EEEEE0333330FF00FFFFF
03333387788777778333330EE0EEEEEE0333330FF0FFFFFF0333338778777777
8333330EEEEEEEEE0333330FFFFFFFFF03333387777777778333330EEEEEEEEE
0333330FFFFFFFFF03333387777777778333330EE0EEEEEE0333330FF0FFFFFF
03333387787777778333330EE00EEEEE0333330FF00FFFFF0333338778877777
8333330EE030EEEE0333330FF030FFFF03333387783877778333330EE0330EEE
0333330FF0330FFF03333387783387778333330EE03330EE0333330FF03330FF
03333387783338778333330EE033330E0333330FF033330F0333338778333387
8333330000333330033333000033333003333388883333388333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = FirstPageSpeedClick
end
object PrevPageSpeed: TSpeedButton
Left = 26
Top = 2
Width = 25
Height = 25
Hint = 'Move to Previous Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333300
3333333333333300333333333333338833333333333330E033333333333330F0
33333333333338783333333333330EE03333333333330FF03333333333338778
333333333330EEE0333333333330FFF0333333333338777833333333330EEEE0
33333333330FFFF033333333338777783333333330EEEEE03333333330FFFFF0
3333333338777778333333330EEEEEE0333333330FFFFFF03333333387777778
33333330EEEEEEE033333330FFFFFFF0333333387777777833333330EEEEEEE0
33333330FFFFFFF03333333877777778333333330EEEEEE0333333330FFFFFF0
33333333877777783333333330EEEEE03333333330FFFFF03333333338777778
33333333330EEEE033333333330FFFF03333333333877778333333333330EEE0
333333333330FFF033333333333877783333333333330EE03333333333330FF0
333333333333877833333333333330E033333333333330F03333333333333878
3333333333333300333333333333330033333333333333883333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = PrevPageButClick
end
object NextPageSpeed: TSpeedButton
Left = 51
Top = 2
Width = 25
Height = 25
Hint = 'Advance to Next Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300333333
33333333003333333333333388333333333333330E033333333333330F033333
3333333387833333333333330EE03333333333330FF033333333333387783333
333333330EEE0333333333330FFF03333333333387778333333333330EEEE033
333333330FFFF0333333333387777833333333330EEEEE03333333330FFFFF03
3333333387777783333333330EEEEEE0333333330FFFFFF03333333387777778
333333330EEEEEEE033333330FFFFFFF0333333387777777833333330EEEEEEE
033333330FFFFFFF0333333387777777833333330EEEEEE0333333330FFFFFF0
3333333387777778333333330EEEEE03333333330FFFFF033333333387777783
333333330EEEE033333333330FFFF0333333333387777833333333330EEE0333
333333330FFF03333333333387778333333333330EE03333333333330FF03333
3333333387783333333333330E033333333333330F0333333333333387833333
3333333300333333333333330033333333333333883333333333}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = NextPageButClick
end
object LastPageSpeed: TSpeedButton
Left = 76
Top = 2
Width = 25
Height = 25
Hint = 'Go to Last Page in Document'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
F6010000424DF601000000000000760000002800000030000000100000000100
0400000000008001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333003333300
0033333003333300003333388333338888333330E033330EE0333330F033330F
F03333387833338778333330EE03330EE0333330FF03330FF033333877833387
78333330EEE0330EE0333330FFF0330FF03333387778338778333330EEEE030E
E0333330FFFF030FF03333387777838778333330EEEEE00EE0333330FFFFF00F
F03333387777788778333330EEEEEE0EE0333330FFFFFF0FF033333877777787
78333330EEEEEEEEE0333330FFFFFFFFF03333387777777778333330EEEEEEEE
E0333330FFFFFFFFF03333387777777778333330EEEEEE0EE0333330FFFFFF0F
F03333387777778778333330EEEEE00EE0333330FFFFF00FF033333877777887
78333330EEEE030EE0333330FFFF030FF03333387777838778333330EEE0330E
E0333330FFF0330FF03333387778338778333330EE03330EE0333330FF03330F
F03333387783338778333330E033330EE0333330F033330FF033333878333387
7833333003333300003333300333330000333338833333888833}
NumGlyphs = 3
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = LastPageSpeedClick
end
object PageNumSpeed: TSpeedButton
Left = 101
Top = 2
Width = 25
Height = 25
Hint = 'Go to Page by Page Number'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF
F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F
F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF
F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F
F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF
F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
333337FFFFFFFF77333330000000000333333777777777733333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = PageNumSpeedClick
end
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 35
Width = 734
Height = 449
Align = alClient
BorderStyle = bsNone
Color = clBtnFace
ParentColor = False
TabOrder = 2
OnResize = ScrollBox1Resize
object ContainPanel: TPanel
Left = 0
Top = 0
Width = 489
Height = 329
BevelOuter = bvNone
Color = clBtnShadow
TabOrder = 0
object PagePanel: TPanel
Left = 44
Top = 32
Width = 209
Height = 265
BevelOuter = bvNone
Color = clWindow
TabOrder = 0
object PB1: TPaintBox
Left = 0
Top = 0
Width = 209
Height = 265
Hint =
'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
' Click && drag with Hand Tool to pan.'
Align = alClient
OnMouseDown = PB1MouseDown
OnMouseMove = PB1MouseMove
OnMouseUp = PB1MouseUp
OnPaint = PBPaint
end
end
object PagePanel2: TPanel
Left = 260
Top = 32
Width = 209
Height = 265
BevelOuter = bvNone
Color = clWindow
TabOrder = 1
Visible = False
object PB2: TPaintBox
Left = 0
Top = 0
Width = 209
Height = 265
Hint =
'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
' Click && drag with Hand Tool to pan.'
Align = alClient
OnPaint = PBPaint
end
end
end
end
object PrintDialog1: TPrintDialog
FromPage = 1
MinPage = 1
Options = [poPrintToFile, poPageNums]
Left = 538
Top = 90
end
end

View File

@ -0,0 +1,321 @@
LazarusResources.Add('TPreviewForm','FORMDATA',[
'TPF0'#12'TPreviewForm'#11'PreviewForm'#4'Left'#3'i'#1#3'Top'#3#158#0#5'Width'
+#3#222#2#6'Height'#3#255#1#7'Caption'#6#12'Preview Form'#5'Color'#7#9'clBtnF'
+'ace'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'#7#12'clWindowTex'
+'t'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#0#9'Ico'
+'n.Data'#10#254#2#0#0#0#0#1#0#1#0' '#16#0#0#0#0#0#232#2#0#0#22#0#0#0'('#0#0
+#0' '#0#0#0'@'#0#0#0#1#0#4#0#0#0#0#0#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0
+#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0
+#255#0#255#255#0#0#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#255#255#255#255#255#255#255#0#0#0#0#0#0#0#0#0#252#204#204#204#204#204
+#207#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#0#0#0#0#0#0#0#0#0#255#255
+#255#255#255#255#255#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#0#0#0#0#0
+#0#0#0#0#252#204#204#204#204#204#207#0#0#0#0#0#0#0#0#0#255#255#255#255#255
+#255#255#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#240#0#0#0#0#0#0#0#0#0#255
+#255#255#255#255#255#0#0#0#0#0#0#0#0#0#0#252#204#204#204#204#192#15#0#0#0#0#0
+#0#0#0#0#255#255#240#0#15#0#255#0#0#0#0#0#0#0#0#0#255#255#7'wp'#15#255#0#0#0
+#0#0#0#0#0#0#255#240'www'#15#255#0#0#0#0#0#0#0#0#0#252#7'wwwp'#207#0#0#0#0#0
+#0#0#0#0#255#4'DDD@'#255#0#0#0#0#0#0#0#0#0#255#4'DDD@'#255#0#0#0#0#0#0#0#0#0
+#255#4'DDD@'#255#0#0#0#0#0#0#0#0#0#252#7'wwwp'#207#0#0#0#0#0#0#0#0#0#255#240
+'www'#15#255#0#0#0#0#0#0#0#0#0#255#255#7'wp'#255#255#0#0#0#0#0#0#0#0#0#255
+#255#240#0#15#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#254#0#1#255#254#0#1#255#254#0#1
+#247#254#0#1#231#254#0#1#207#254#0#1#159#254#0#1'?'#254#0#0#127#254#0#0#255
+#254#0#1#255#254#0#1#255#254#0#1#255#254#0#1#255#254#0#1#255#254#0#1#255#254
+#0#1#255#254#0#1#255#254#0#1#255#254#0#1#255#254#0#1#255#254#0#1#255#254#0#1
+#255#254#0#1#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#11'WindowState'#7#11'wsMaximized'#7'OnClose'#7#9'FormClose'#6'OnShow'#7
+#8'FormShow'#13'PixelsPerInch'#2'`'#0#6'TPanel'#12'ToolBarPanel'#4'Left'#2#0
+#3'Top'#2#0#5'Width'#3#222#2#6'Height'#2'#'#5'Align'#7#5'alTop'#10'BevelOute'
+'r'#7#6'bvNone'#8'TabOrder'#2#0#0#12'TSpeedButton'#7'GridBut'#4'Left'#3#135#1
+#3'Top'#2#4#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#14'Show/Hide Grid'#10'All'
+'owAllUp'#9#10'GroupIndex'#2#1#10'Glyph.Data'#10#250#0#0#0#246#0#0#0'BM'#246
+#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#0#0#0
+#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#191#0#0#191#0#0#0#191#191#0
+#191#0#0#0#191#0#191#0#191#191#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0
+#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'wwwwwww'
+'wwxw'#135'xw'#135'wwxw'#135'xw'#135'wx'#128#136#8#128#136#8#135'wxw'#135'xw'
+#135'wwxw'#135'xw'#135'wx'#128#136#8#128#136#8#135'wxw'#135'xw'#135'wwxw'#135
+'xw'#135'wx'#128#136#8#128#136#8#135'wxw'#135'xw'#135'wwxw'#135'xw'#135'wx'
+#128#136#8#128#136#8#135'wxw'#135'xw'#135'wwxw'#135'xw'#135'wwwwwwwww'#14'Pa'
+'rentShowHint'#8#8'ShowHint'#9#7'OnClick'#7#12'GridButClick'#0#0#12'TSpeedBu'
+'tton'#13'ZoomCursorBut'#4'Left'#3#20#2#3'Top'#2#4#5'Width'#2#25#6'Height'#2
+#25#4'Hint'#6'''Selects the Zoom Tool to zoom in or out'#10'GroupIndex'#2#2#4
+'Down'#9#10'Glyph.Data'#10'z'#1#0#0'v'#1#0#0'BMv'#1#0#0#0#0#0#0'v'#0#0#0'('#0
+#0#0' '#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#16#0#0#0#16#0
+#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0
+#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255
+#0#255#0#255#255#0#0#255#255#255#0'3333333'#3'333333?'#143'3333330'#0'333333'
+#248#136'333333'#0#3'33333?'#136#131'333330'#0'333333'#248#136'333333'#0#3'3'
+'33?'#255'?'#136#131'338'#0#8';'#128'333?'#136#131#248#136'333'#8#136#136#0
+#179'333'#136'38'#136#131'330'#143#127#127#128'3338'#243'3'#243'8'#243'33'
+#136#247#249#247#248#131'33838'#243'8?33'#8#127'y'#127'x'#3'33'#143'3'#248
+#255#243#143'33'#8#249#153#153#248#3'33'#143'8'#136#136'3'#143'33'#8#127'y'
+#127'x'#3'33'#131#243'8'#243'3'#131'33'#136#247#249#247#248#131'338'#243'838'
+#243'330'#143#127#127#128'3338?'#243'3'#248'3333'#8#136#136#3'3333'#136'?'
+#248#131'33338'#0#8'333333'#136#131'3333'#9'NumGlyphs'#2#2#14'ParentShowHint'
+#8#8'ShowHint'#9#7'OnClick'#7#18'ZoomCursorButClick'#0#0#12'TSpeedButton'#13
+'HandCursorBut'#4'Left'#3'.'#2#3'Top'#2#4#5'Width'#2#25#6'Height'#2#25#4'Hin'
+'t'#6',Selects the Hand Tool to pan across the Page'#10'GroupIndex'#2#2#10'G'
+'lyph.Data'#10#250#0#0#0#246#0#0#0'BM'#246#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#16
,#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#0#0#0#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0
+#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#192
+#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255
+#0#255#255#0#0#255#255#255#0'33'#0#0#0#3'3330'#255#255#255#240'333'#15#255
+#255#255#255#3'33'#15#255#255#255#15#240'33'#15#255#255#255#0#255#3'3'#15#255
+#255#255#3#15#3'3'#15#15#15#15#3'0'#3'3'#15#15#15#15#3'333'#15#15#15#15#3'33'
+'3'#15#15#15#15#3'333'#15#15#15#15#3'3330'#15#15#15#3'3333'#15#15#15#3'3333'
+#0#15#15#3'33333'#15#0'333333'#0#3'333'#14'ParentShowHint'#8#8'ShowHint'#9#7
+'OnClick'#7#18'HandCursorButClick'#0#0#12'TSpeedButton'#10'OnePageBut'#4'Lef'
+'t'#3'S'#2#3'Top'#2#4#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#26'Display One '
+'page at a time'#10'GroupIndex'#2#3#4'Down'#9#7'Caption'#6#2'&1'#14'ParentSh'
+'owHint'#8#8'ShowHint'#9#7'OnClick'#7#16'ScrollBox1Resize'#9'OnMouseUp'#7#17
+'OnePageButMouseUp'#0#0#12'TSpeedButton'#10'TwoPageBut'#4'Left'#3'm'#2#3'Top'
+#2#4#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#30'Display Two pages side by sid'
+'e'#10'GroupIndex'#2#3#7'Caption'#6#2'&2'#14'ParentShowHint'#8#8'ShowHint'#9
+#7'OnClick'#7#15'TwoPageButClick'#0#0#12'TSpeedButton'#10'FitPageBut'#4'Left'
+#3'T'#1#3'Top'#2#4#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#11'Fit to Page'#10
+'AllowAllUp'#9#10'GroupIndex'#2#4#10'Glyph.Data'#10#250#0#0#0#246#0#0#0'BM'
+#246#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#0
+#0#0#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128
+#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0
+#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#255#0#0
+#0#0#0#0#255#255#15#255#255#255#255#240#255#255#15#255#255#255#255#240#255
+#255#15#0#0#0#0#240#255#255#15#255#255#255#255#240#255#255#15#255#255#255#255
+#240#255#255#15#0#0#0#0#240#255#255#15#255#255#255#255#240#255#255#15#255#255
+#255#255#240#255#255#15#0#0#0#0#240#255#255#15#255#255#255#255#240#255#255#15
+#255#255#255#255#240#255#255#15#0#0#0#0#240#255#255#15#255#255#255#255#240
+#255#255#15#255#255#255#255#240#255#255#0#0#0#0#0#0#255#14'ParentShowHint'#8
+#8'ShowHint'#9#7'OnClick'#7#15'FitPageButClick'#0#0#12'TSpeedButton'#11'FitW'
+'idthBut'#4'Left'#3'm'#1#3'Top'#2#4#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#12
+'Fit to Width'#10'AllowAllUp'#9#10'GroupIndex'#2#4#10'Glyph.Data'#10#250#0#0
+#0#246#0#0#0'BM'#246#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#4
+#0#0#0#0#0#128#0#0#0#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0
+#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192
+#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255
+#255#255#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#15
+#240#0#0#0#0#15#240#15#255#255#255#255#255#255#240#15#255#255#255#255#255#255
+#240#15#255#255#255#255#255#255#240#15#240#0#0#0#0#15#240#15#255#255#255#255
+#255#255#240#15#255#255#255#255#255#255#240#15#255#255#255#255#255#255#240#15
+#240#0#0#0#0#15#240#15#255#255#255#255#255#255#240#15#255#255#255#255#255#255
+#240#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#14'ParentShowHint'#8#8'ShowHint'#9#7'OnClick'#7#16'FitWidthButClick'
+#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#0#3'Top'#2'!'#5'Width'#3#222#2#6'Height'#2
+#2#5'Align'#7#8'alBottom'#5'Shape'#7#12'bsBottomLine'#0#0#6'TBevel'#6'Bevel2'
+#4'Left'#3#220#0#3'Top'#2#2#5'Width'#2#2#6'Height'#2#28#0#0#6'TBevel'#6'Beve'
+'l3'#4'Left'#3'L'#1#3'Top'#2#2#5'Width'#2#2#6'Height'#2#28#0#0#6'TBevel'#6'B'
+'evel4'#4'Left'#3#8#2#3'Top'#2#2#5'Width'#2#2#6'Height'#2#28#0#0#6'TBevel'#6
+'Bevel5'#4'Left'#3'L'#2#3'Top'#2#2#5'Width'#2#2#6'Height'#2#28#0#0#6'TBevel'
+#6'Bevel6'#4'Left'#3#140#2#3'Top'#2#2#5'Width'#2#2#6'Height'#2#28#0#0#6'TBev'
+'el'#6'Bevel7'#4'Left'#3#167#1#3'Top'#2#2#5'Width'#2#2#6'Height'#2#28#0#0#7
+'TBitBtn'#8'PrintBut'#4'Left'#2#5#3'Top'#2#4#5'Width'#2'L'#6'Height'#2#25#4
+'Hint'#6#26'Print the Current Document'#7'Caption'#6#9'&Print...'#8'TabOrder'
+#2#0#7'OnClick'#7#13'PrintButClick'#10'Glyph.Data'#10#250#0#0#0#246#0#0#0'BM'
+#246#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#0
+#0#0#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128
+#0#128#0#0#0#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0
+#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'"""""""'
+'""'#0#0#0#0#0#2'" wwwwpp"'#0#0#0#0#0#0#7#2#7'ww{'#187'w'#0#2#7'wwx'#136'w'#7
+#2#0#0#0#0#0#0#7'p'#7'wwwwppp '#0#0#0#0#7#7#0'"'#15#255#255#255#240'pp" '#240
+#0#0#240#0#2'" '#255#255#255#255#2'"""'#15#0#0#15#2'"""'#15#255#255#255#240
+'""" '#0#0#0#0'"""""""""'#7'Spacing'#2#8#0#0#7'TBitBtn'#11'NextPageBut'#4'Le'
+'ft'#3#148#0#3'Top'#2#4#5'Width'#2'B'#6'Height'#2#25#4'Hint'#6' Advance to N'
+'ext Page in Document'#7'Caption'#6#5'&Next'#8'TabOrder'#2#1#7'OnClick'#7#16
+'NextPageButClick'#10'Glyph.Data'#10'j'#1#0#0'f'#1#0#0'BMf'#1#0#0#0#0#0#0'v'
,#0#0#0'('#0#0#0#20#0#0#0#20#0#0#0#1#0#4#0#0#0#0#0#240#0#0#0#0#0#0#0#0#0#0#0
+#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0
+#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255
+#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'3333333333'#0#0'333333333'
+'3'#0#0'333'#0'333333'#0#0'333'#14#3'33333'#0#0'333'#14#224'33333'#0#0'333'
+#14#238#3'3333'#0#0'333'#14#238#224'3333'#0#0'333'#14#238#238#3'333'#0#0'333'
+#14#238#238#224'333'#0#0'333'#14#238#238#238#3'33'#0#0'333'#14#238#238#238#3
+'33'#0#0'333'#14#238#238#224'333'#0#0'333'#14#238#238#3'333'#0#0'333'#14#238
+#224'3333'#0#0'333'#14#238#3'3333'#0#0'333'#14#224'33333'#0#0'333'#14#3'3333'
+'3'#0#0'333'#0'333333'#0#0'3333333333'#0#0'3333333333'#0#0#6'Layout'#7#12'bl'
+'GlyphRight'#6'Margin'#2#4#7'Spacing'#2#2#0#0#7'TBitBtn'#11'PrevPageBut'#4'L'
+'eft'#2'R'#3'Top'#2#4#5'Width'#2'A'#6'Height'#2#25#4'Hint'#6'!Move to Previo'
+'us Page in Document'#7'Caption'#6#5'Pre&v'#7'Enabled'#8#8'TabOrder'#2#2#7'O'
+'nClick'#7#16'PrevPageButClick'#10'Glyph.Data'#10'j'#1#0#0'f'#1#0#0'BMf'#1#0
+#0#0#0#0#0'v'#0#0#0'('#0#0#0#20#0#0#0#20#0#0#0#1#0#4#0#0#0#0#0#240#0#0#0#0#0
+#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0
+#0#0#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0
+#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'3333333333'#0#0
+'3333333333'#0#0'333330'#3'333'#0#0'33333'#14#3'333'#0#0'33330'#238#3'333'#0
+#0'3333'#14#238#3'333'#0#0'3330'#238#238#3'333'#0#0'333'#14#238#238#3'333'#0
+#0'330'#238#238#238#3'333'#0#0'33'#14#238#238#238#3'333'#0#0'33'#14#238#238
+#238#3'333'#0#0'330'#238#238#238#3'333'#0#0'333'#14#238#238#3'333'#0#0'3330'
+#238#238#3'333'#0#0'3333'#14#238#3'333'#0#0'33330'#238#3'333'#0#0'33333'#14#3
+'333'#0#0'333330'#3'333'#0#0'3333333333'#0#0'3333333333'#0#0#6'Margin'#2#6#7
+'Spacing'#2#2#0#0#7'TBitBtn'#8'CloseBut'#4'Left'#3#148#2#3'Top'#2#4#5'Width'
+#2'='#6'Height'#2#25#4'Hint'#6#30'Close the Print Preview window'#6'Cancel'#9
+#7'Caption'#6#6'&Close'#8'TabOrder'#2#3#7'OnClick'#7#13'CloseButClick'#10'Gl'
+'yph.Data'#10#250#1#0#0#246#1#0#0'BM'#246#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0'0'
+#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#1#0#0#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0
+#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#192
+#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255
+#0#255#255#0#0#255#255#255#0'3'#0#0#0#0#0#3'33'#0#0#0#0#0#3'33'#0#0#0#0#0#3
+'33'#6'ffff'#3'33'#15#255#255#255#255#3'33'#7'wwww'#3'33'#6'ffff'#3'33'#15
+#255#255#255#255#3'33'#7'wwww'#3'33'#6'ffff'#3'33'#15#255#255#255#255#3'33'#7
+'wwww'#3'33'#6'ffff'#3'33'#15#255#255#255#255#3'33'#7'wwww'#3'33'#6'ffff'#3
+'33'#15#255#255#255#255#3'33'#7'wwww'#3'33'#6'ffff'#3'33'#15#255#255#255#255
+#3'33'#7'wwww'#3'33'#6'fff'#6#3'33'#15#255#255#255#15#3'33'#7'www'#135#3'33'
+#6'ffff'#3'33'#15#255#255#255#255#3'33'#7'wwww'#3'33'#6'ffff'#3'33'#15#255
+#255#255#255#3'33'#7'wwww'#3'33'#6'o'#255#255'f'#3'33'#15#240#0#0#255#3'33'#7
+'x'#136#136'w'#3'33'#6'o'#255#255'f'#3'33'#15#240#0#0#255#3'33'#7'x'#136#136
+'w'#3'33'#6'o'#255#255'f'#3'33'#15#240#0#0#255#3'33'#7'x'#136#136'w'#3'33'#6
+'ffff'#3'33'#15#255#255#255#255#3'33'#7'wwww'#3'33'#6'ffff'#3'33'#15#255#255
+#255#255#3'33'#7'wwww'#3'33'#0#0#0#0#0#3'33'#0#0#0#0#0#3'33'#0#0#0#0#0#3'3'#9
+'NumGlyphs'#2#3#0#0#9'TComboBox'#7'ZoomBox'#4'Left'#3#228#0#3'Top'#2#6#5'Wid'
+'th'#2'a'#6'Height'#2#21#5'Style'#7#14'csDropDownList'#10'ItemHeight'#2#13#8
+'TabOrder'#2#4#8'OnChange'#7#13'ZoomBoxChange'#13'Items.Strings'#1#6#11'Fit '
+'To Page'#6#12'Fit To Width'#6#6'Custom'#6#3'25%'#6#3'50%'#6#3'75%'#6#4'100%'
+#6#4'125%'#6#4'150%'#6#4'200%'#6#4'300%'#6#4'400%'#0#0#0#9'TComboBox'#8'Unit'
+'sBox'#4'Left'#3#175#1#3'Top'#2#6#5'Width'#2'Q'#6'Height'#2#21#5'Style'#7#14
+'csDropDownList'#10'ItemHeight'#2#13#8'TabOrder'#2#5#8'OnChange'#7#14'UnitsB'
+'oxChange'#13'Items.Strings'#1#6#6'Inches'#6#11'Centimeters'#0#0#0#0#6'TPane'
+'l'#12'StatBarPanel'#4'Left'#2#0#3'Top'#3#228#1#5'Width'#3#222#2#6'Height'#2
+#27#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNone'#12'Font.Charset'#7#15
+'DEFAULT_CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.N'
+'ame'#6#5'Arial'#10'Font.Style'#11#0#10'ParentFont'#8#8'TabOrder'#2#1#0#6'TP'
+'anel'#12'CurPageLabel'#4'Left'#3#133#0#3'Top'#2#0#5'Width'#2'e'#6'Height'#2
+#27#4'Hint'#6')Displays the Current Page of the Document'#5'Align'#7#6'alLef'
+'t'#10'BevelOuter'#7#9'bvLowered'#7'Caption'#6#12'CurPageLabel'#8'TabOrder'#2
+#0#0#0#6'TPanel'#9'ZoomLabel'#4'Left'#3#234#0#3'Top'#2#0#5'Width'#2'X'#6'Hei'
+'ght'#2#27#4'Hint'#6'/Displays the Current Zoom Level (100% = normal)'#5'Ali'
+'gn'#7#6'alLeft'#10'BevelOuter'#7#9'bvLowered'#7'Caption'#6#9'ZoomLabel'#8'T'
+'abOrder'#2#1#0#0#6'TPanel'#6'Panel1'#4'Left'#3'B'#1#3'Top'#2#0#5'Width'#3
+#156#1#6'Height'#2#27#4'Hint'#6'.Displays Help for the object beneath the mo'
+'use'#5'Align'#7#8'alClient'#10'BevelOuter'#7#9'bvLowered'#8'TabOrder'#2#2#0
,#6'TLabel'#9'HintLabel'#4'Left'#2#8#3'Top'#2#5#5'Width'#2','#6'Height'#2#14#4
+'Hint'#6'.Displays Help for the object beneath the mouse'#7'Caption'#6#9'Hin'
+'tLabel'#0#0#0#6'TPanel'#12'MoveButPanel'#4'Left'#2#0#3'Top'#2#0#5'Width'#3
+#133#0#6'Height'#2#27#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#7'Capt'
+'ion'#6#12'MoveButPanel'#8'TabOrder'#2#3#0#12'TSpeedButton'#14'FirstPageSpee'
+'d'#4'Left'#2#1#3'Top'#2#2#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#28'Go to F'
+'irst Page in Document'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'
+#7#7'clBlack'#11'Font.Height'#2#243#9'Font.Name'#6#15'Times New Roman'#10'Fo'
+'nt.Style'#11#0#10'Glyph.Data'#10#250#1#0#0#246#1#0#0'BM'#246#1#0#0#0#0#0#0
+'v'#0#0#0'('#0#0#0'0'#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#1#0#0#0#0#0#0#0#0#0
+#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0
+#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255
+#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'3'#0#0'330'#3'33'#0#0'330'
+#3'33'#136#136'338'#131'33'#14#224'33'#14#3'33'#15#240'33'#15#3'33'#135'x33'
+#135#131'33'#14#224'30'#238#3'33'#15#240'30'#255#3'33'#135'x38w'#131'33'#14
+#224'3'#14#238#3'33'#15#240'3'#15#255#3'33'#135'x3'#135'w'#131'33'#14#224'0'
+#238#238#3'33'#15#240'0'#255#255#3'33'#135'x8ww'#131'33'#14#224#14#238#238#3
+'33'#15#240#15#255#255#3'33'#135'x'#135'ww'#131'33'#14#224#238#238#238#3'33'
+#15#240#255#255#255#3'33'#135'xwww'#131'33'#14#238#238#238#238#3'33'#15#255
+#255#255#255#3'33'#135'wwww'#131'33'#14#238#238#238#238#3'33'#15#255#255#255
+#255#3'33'#135'wwww'#131'33'#14#224#238#238#238#3'33'#15#240#255#255#255#3'3'
+'3'#135'xwww'#131'33'#14#224#14#238#238#3'33'#15#240#15#255#255#3'33'#135'x'
+#135'ww'#131'33'#14#224'0'#238#238#3'33'#15#240'0'#255#255#3'33'#135'x8ww'
+#131'33'#14#224'3'#14#238#3'33'#15#240'3'#15#255#3'33'#135'x3'#135'w'#131'33'
+#14#224'30'#238#3'33'#15#240'30'#255#3'33'#135'x38w'#131'33'#14#224'33'#14#3
+'33'#15#240'33'#15#3'33'#135'x33'#135#131'33'#0#0'330'#3'33'#0#0'330'#3'33'
+#136#136'338'#131'3'#9'NumGlyphs'#2#3#10'ParentFont'#8#14'ParentShowHint'#8#8
+'ShowHint'#9#7'OnClick'#7#19'FirstPageSpeedClick'#0#0#12'TSpeedButton'#13'Pr'
+'evPageSpeed'#4'Left'#2#26#3'Top'#2#2#5'Width'#2#25#6'Height'#2#25#4'Hint'#6
+'!Move to Previous Page in Document'#12'Font.Charset'#7#15'DEFAULT_CHARSET'
+#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#243#9'Font.Name'#6#15'Times N'
+'ew Roman'#10'Font.Style'#11#0#10'Glyph.Data'#10#250#1#0#0#246#1#0#0'BM'#246
+#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0'0'#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#1#0#0
+#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0
+#128#0#0#0#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0
+#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'33333'#0
+'3333333'#0'3333333'#136'3333330'#224'3333330'#240'3333338x333333'#14#224'33'
+'3333'#15#240'333333'#135'x333330'#238#224'333330'#255#240'333338wx33333'#14
+#238#224'33333'#15#255#240'33333'#135'wx33330'#238#238#224'33330'#255#255#240
+'33338wwx3333'#14#238#238#224'3333'#15#255#255#240'3333'#135'wwx3330'#238#238
+#238#224'3330'#255#255#255#240'3338wwwx3330'#238#238#238#224'3330'#255#255
+#255#240'3338wwwx3333'#14#238#238#224'3333'#15#255#255#240'3333'#135'wwx3333'
+'0'#238#238#224'33330'#255#255#240'33338wwx33333'#14#238#224'33333'#15#255
+#240'33333'#135'wx333330'#238#224'333330'#255#240'333338wx333333'#14#224'333'
+'333'#15#240'333333'#135'x3333330'#224'3333330'#240'3333338x3333333'#0'33333'
+'33'#0'3333333'#136'33'#9'NumGlyphs'#2#3#10'ParentFont'#8#14'ParentShowHint'
+#8#8'ShowHint'#9#7'OnClick'#7#16'PrevPageButClick'#0#0#12'TSpeedButton'#13'N'
+'extPageSpeed'#4'Left'#2'3'#3'Top'#2#2#5'Width'#2#25#6'Height'#2#25#4'Hint'#6
+' Advance to Next Page in Document'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10
+'Font.Color'#7#7'clBlack'#11'Font.Height'#2#243#9'Font.Name'#6#15'Times New '
+'Roman'#10'Font.Style'#11#0#10'Glyph.Data'#10#250#1#0#0#246#1#0#0'BM'#246#1#0
+#0#0#0#0#0'v'#0#0#0'('#0#0#0'0'#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#1#0#0#0#0
+#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0
+#0#0#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0
+#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'33'#0'3333333'#0
+'3333333'#136'3333333'#14#3'333333'#15#3'333333'#135#131'333333'#14#224'3333'
+'33'#15#240'333333'#135'x333333'#14#238#3'33333'#15#255#3'33333'#135'w'#131
+'33333'#14#238#224'33333'#15#255#240'33333'#135'wx33333'#14#238#238#3'3333'
+#15#255#255#3'3333'#135'ww'#131'3333'#14#238#238#224'3333'#15#255#255#240'33'
+'33'#135'wwx3333'#14#238#238#238#3'333'#15#255#255#255#3'333'#135'www'#131'3'
+'33'#14#238#238#238#3'333'#15#255#255#255#3'333'#135'www'#131'333'#14#238#238
+#224'3333'#15#255#255#240'3333'#135'wwx3333'#14#238#238#3'3333'#15#255#255#3
+'3333'#135'ww'#131'3333'#14#238#224'33333'#15#255#240'33333'#135'wx33333'#14
+#238#3'33333'#15#255#3'33333'#135'w'#131'33333'#14#224'333333'#15#240'333333'
,#135'x333333'#14#3'333333'#15#3'333333'#135#131'333333'#0'3333333'#0'3333333'
+#136'33333'#9'NumGlyphs'#2#3#10'ParentFont'#8#14'ParentShowHint'#8#8'ShowHin'
+'t'#9#7'OnClick'#7#16'NextPageButClick'#0#0#12'TSpeedButton'#13'LastPageSpee'
+'d'#4'Left'#2'L'#3'Top'#2#2#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#27'Go to '
+'Last Page in Document'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'
+#7#7'clBlack'#11'Font.Height'#2#243#9'Font.Name'#6#15'Times New Roman'#10'Fo'
+'nt.Style'#11#0#10'Glyph.Data'#10#250#1#0#0#246#1#0#0'BM'#246#1#0#0#0#0#0#0
+'v'#0#0#0'('#0#0#0'0'#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#128#1#0#0#0#0#0#0#0#0#0
+#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0
+#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255
+#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'30'#3'33'#0#0'330'#3'33'#0
+#0'338'#131'33'#136#136'330'#224'33'#14#224'330'#240'33'#15#240'338x33'#135
+'x330'#238#3'3'#14#224'330'#255#3'3'#15#240'338w'#131'3'#135'x330'#238#224'3'
+#14#224'330'#255#240'3'#15#240'338wx3'#135'x330'#238#238#3#14#224'330'#255
+#255#3#15#240'338ww'#131#135'x330'#238#238#224#14#224'330'#255#255#240#15#240
+'338wwx'#135'x330'#238#238#238#14#224'330'#255#255#255#15#240'338www'#135'x3'
+'30'#238#238#238#238#224'330'#255#255#255#255#240'338wwwwx330'#238#238#238
+#238#224'330'#255#255#255#255#240'338wwwwx330'#238#238#238#14#224'330'#255
+#255#255#15#240'338www'#135'x330'#238#238#224#14#224'330'#255#255#240#15#240
+'338wwx'#135'x330'#238#238#3#14#224'330'#255#255#3#15#240'338ww'#131#135'x33'
+'0'#238#224'3'#14#224'330'#255#240'3'#15#240'338wx3'#135'x330'#238#3'3'#14
+#224'330'#255#3'3'#15#240'338w'#131'3'#135'x330'#224'33'#14#224'330'#240'33'
+#15#240'338x33'#135'x330'#3'33'#0#0'330'#3'33'#0#0'338'#131'33'#136#136'3'#9
+'NumGlyphs'#2#3#10'ParentFont'#8#14'ParentShowHint'#8#8'ShowHint'#9#7'OnClic'
+'k'#7#18'LastPageSpeedClick'#0#0#12'TSpeedButton'#12'PageNumSpeed'#4'Left'#2
+'e'#3'Top'#2#2#5'Width'#2#25#6'Height'#2#25#4'Hint'#6#25'Go to Page by Page '
+'Number'#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'#7#7'clBlack'
+#11'Font.Height'#2#243#9'Font.Name'#6#15'Times New Roman'#10'Font.Style'#11#0
+#10'Glyph.Data'#10'z'#1#0#0'v'#1#0#0'BMv'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0' '
+#0#0#0#16#0#0#0#1#0#4#0#0#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#16#0#0#0#16#0#0#0#0#0
+#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#127
+#127#127#0#191#191#191#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255
+#0#255#255#0#0#255#255#255#0'0'#0#0#0#0#0#0'37wwwwww'#243'0'#255#255#255#255
+#255#240'37'#243'?3?37'#243'0'#255#15#255#15#255#240'37'#243#127'3'#127'37'
+#243'0'#255#15#255#15#255#240'37'#243#127#255#127#255'7'#243'0'#240#0#0#0#15
+#240'37'#247'wwws7'#243'0'#255#240#255#240#255#240'37'#243'7'#243'7'#243'7'
+#243'0'#255#240#255#240#255#240'37'#243'7'#255#247#255#247#243'0'#255#0#0#0#0
+#240'37'#243'wwww7'#243'0'#255#255#15#255#15#240'37'#243'3'#127'3'#127'7'#243
+'0'#255#255#15#255#15#240'37'#243'3s3s7'#243'0'#255#255#255#255#255#240'37'
+#243'333?'#247#243'0'#255#255#255#255#0#0'37'#243'333ww'#243'0'#255#255#255
+#255#15#240'37'#255#255#255#255#127'730'#153#153#153#153#15#3'37wwww'#127's3'
+'0'#255#255#255#255#0'337'#255#255#255#255'w330'#0#0#0#0#3'337wwwws33'#9'Num'
+'Glyphs'#2#2#10'ParentFont'#8#14'ParentShowHint'#8#8'ShowHint'#9#7'OnClick'#7
+#17'PageNumSpeedClick'#0#0#0#0#10'TScrollBox'#10'ScrollBox1'#4'Left'#2#0#3'T'
+'op'#2'#'#5'Width'#3#222#2#6'Height'#3#193#1#5'Align'#7#8'alClient'#11'Borde'
+'rStyle'#7#6'bsNone'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'TabOrder'#2
+#2#8'OnResize'#7#16'ScrollBox1Resize'#0#6'TPanel'#12'ContainPanel'#4'Left'#2
+#0#3'Top'#2#0#5'Width'#3#233#1#6'Height'#3'I'#1#10'BevelOuter'#7#6'bvNone'#5
+'Color'#7#11'clBtnShadow'#8'TabOrder'#2#0#0#6'TPanel'#9'PagePanel'#4'Left'#2
+','#3'Top'#2' '#5'Width'#3#209#0#6'Height'#3#9#1#10'BevelOuter'#7#6'bvNone'#5
+'Color'#7#8'clWindow'#8'TabOrder'#2#0#0#9'TPaintBox'#3'PB1'#4'Left'#2#0#3'To'
+'p'#2#0#5'Width'#3#209#0#6'Height'#3#9#1#4'Hint'#6'ePage View. With Zoom To'
+'ol, left or right click to zoom in/out. Click && drag with Hand Tool to pa'
+'n.'#5'Align'#7#8'alClient'#11'OnMouseDown'#7#12'PB1MouseDown'#11'OnMouseMov'
+'e'#7#12'PB1MouseMove'#9'OnMouseUp'#7#10'PB1MouseUp'#7'OnPaint'#7#7'PBPaint'
+#0#0#0#6'TPanel'#10'PagePanel2'#4'Left'#3#4#1#3'Top'#2' '#5'Width'#3#209#0#6
+'Height'#3#9#1#10'BevelOuter'#7#6'bvNone'#5'Color'#7#8'clWindow'#8'TabOrder'
+#2#1#7'Visible'#8#0#9'TPaintBox'#3'PB2'#4'Left'#2#0#3'Top'#2#0#5'Width'#3#209
+#0#6'Height'#3#9#1#4'Hint'#6'ePage View. With Zoom Tool, left or right clic'
+'k to zoom in/out. Click && drag with Hand Tool to pan.'#5'Align'#7#8'alCli'
+'ent'#7'OnPaint'#7#7'PBPaint'#0#0#0#0#0#12'TPrintDialog'#12'PrintDialog1'#8
+'FromPage'#2#1#7'MinPage'#2#1#7'Options'#11#13'poPrintToFile'#10'poPageNums'
+#0#4'Left'#3#26#2#3'Top'#2'Z'#0#0#0
]);

View File

@ -0,0 +1,542 @@
{*************************************************************}
{* *}
{* Thanks to Chris Wallace for most of the ideas and *}
{* code associated with Print Preview and the Preview Form *}
{* *}
{*************************************************************}
{$ifDef ver150} {Delphi 7}
{$Define Delphi7_Plus}
{$endif}
{$ifDef ver170} {Delphi 2005}
{$Define Delphi7_Plus}
{$endif}
{$ifDef ver180} {Delphi 2006}
{$Define Delphi7_Plus} {9.4}
{$endif}
unit PreviewForm;
interface
uses
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons, MetaFilePrinter, HTMLView, PrintStatusForm;
const
crZoom = 40;
crHandDrag = 41;
ZOOMFACTOR = 1.5;
type
TPreviewForm = class(TForm)
ToolBarPanel: TPanel;
GridBut: TSpeedButton;
ZoomCursorBut: TSpeedButton;
HandCursorBut: TSpeedButton;
OnePageBut: TSpeedButton;
TwoPageBut: TSpeedButton;
PrintBut: TBitBtn;
NextPageBut: TBitBtn;
PrevPageBut: TBitBtn;
CloseBut: TBitBtn;
ZoomBox: TComboBox;
StatBarPanel: TPanel;
CurPageLabel: TPanel;
ZoomLabel: TPanel;
Panel1: TPanel;
HintLabel: TLabel;
MoveButPanel: TPanel;
FirstPageSpeed: TSpeedButton;
PrevPageSpeed: TSpeedButton;
NextPageSpeed: TSpeedButton;
LastPageSpeed: TSpeedButton;
PageNumSpeed: TSpeedButton;
ScrollBox1: TScrollBox;
ContainPanel: TPanel;
PagePanel: TPanel;
PB1: TPaintBox;
PagePanel2: TPanel;
PB2: TPaintBox;
PrintDialog1: TPrintDialog;
FitPageBut: TSpeedButton;
FitWidthBut: TSpeedButton;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
UnitsBox: TComboBox;
Bevel7: TBevel;
procedure CloseButClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ScrollBox1Resize(Sender: TObject);
procedure PBPaint(Sender: TObject);
procedure GridButClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ZoomBoxChange(Sender: TObject);
procedure TwoPageButClick(Sender: TObject);
procedure NextPageButClick(Sender: TObject);
procedure PrevPageButClick(Sender: TObject);
procedure FirstPageSpeedClick(Sender: TObject);
procedure LastPageSpeedClick(Sender: TObject);
procedure ZoomCursorButClick(Sender: TObject);
procedure HandCursorButClick(Sender: TObject);
procedure PB1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PB1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PB1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PrintButClick(Sender: TObject);
procedure PageNumSpeedClick(Sender: TObject);
procedure OnePageButMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FitPageButClick(Sender: TObject);
procedure FitWidthButClick(Sender: TObject);
procedure UnitsBoxChange(Sender: TObject);
private
Viewer: ThtmlViewer;
protected
FCurPage : integer;
OldHint : TNotifyEvent;
DownX, DownY : integer;
Moving : boolean;
MFPrinter : TMetaFilePrinter;
procedure DrawMetaFile(PB: TPaintBox; mf: TMetaFile);
procedure OnHint(Sender: TObject);
procedure SetCurPage(Val: integer);
procedure CheckEnable;
property CurPage: integer read FCurPage write SetCurPage;
public
Zoom : double;
constructor CreateIt(AOwner: TComponent; AViewer: ThtmlViewer; var Abort: boolean);
destructor Destroy; override;
end;
implementation
uses
Gopage;
{$IFNDEF LCL}
{$R *.DFM}
{$ENDIF}
{$R GRID.RES}
constructor TPreviewForm.CreateIt(AOwner: TComponent; AViewer: ThtmlViewer;
var Abort: boolean);
var
StatusForm: TPrnStatusForm;
begin
inherited Create(AOwner);
ZoomBox.ItemIndex := 0;
UnitsBox.ItemIndex := 0;
Screen.Cursors[crZoom] := LoadCursor(hInstance, 'ZOOM_CURSOR');
Screen.Cursors[crHandDrag] := LoadCursor(hInstance, 'HAND_CURSOR');
ZoomCursorButClick(nil);
Viewer := AViewer;
MFPrinter := TMetaFilePrinter.Create(Self);
StatusForm := TPrnStatusForm.Create(Self);
try
StatusForm.DoPreview(Viewer, MFPrinter, Abort);
finally
StatusForm.Free;
end;
end;
destructor TPreviewForm.Destroy;
begin
inherited;
end;
procedure TPreviewForm.CloseButClick(Sender: TObject);
begin
Close;
end;
procedure TPreviewForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
Application.OnHint := OldHint;
MFPrinter.Free;
end;
procedure TPreviewForm.ScrollBox1Resize(Sender: TObject);
const
BORD = 20;
var
z : double;
tmp : integer;
TotWid : integer;
begin
case ZoomBox.ItemIndex of
0 : FitPageBut.Down := True;
1 : FitWidthBut.Down := True;
else
begin
FitPageBut.Down := False;
FitWidthBut.Down := False;
end;
end;
if ZoomBox.ItemIndex = -1 then
ZoomBox.ItemIndex := 0;
Case ZoomBox.ItemIndex of
0: z := ((ScrollBox1.ClientHeight - BORD) / PixelsPerInch) /
(MFPrinter.PaperHeight / MFPrinter.PixelsPerInchY);
1: z := ((ScrollBox1.ClientWidth - BORD) / PixelsPerInch) /
(MFPrinter.PaperWidth / MFPrinter.PixelsPerInchX);
2: z := Zoom;
3: z := 0.25;
4: z := 0.50;
5: z := 0.75;
6: z := 1.00;
7: z := 1.25;
8: z := 1.50;
9: z := 2.00;
10: z := 3.00;
11: z := 4.00;
else
z := 1;
end;
if ZoomBox.ItemIndex<>0 then OnePageBut.Down := True;
PagePanel.Height := TRUNC(PixelsPerInch * z * MFPrinter.PaperHeight / MFPrinter.PixelsPerInchY);
PagePanel.Width := TRUNC(PixelsPerInch * z * MFPrinter.PaperWidth / MFPrinter.PixelsPerInchX);
PagePanel2.Visible := TwoPageBut.Down;
if TwoPageBut.Down then
begin
PagePanel2.Width := PagePanel.Width;
PagePanel2.Height := PagePanel.Height;
end;
TotWid := PagePanel.Width + BORD;
if TwoPageBut.Down then
TotWid := TotWid + PagePanel2.Width + BORD;
// Resize the Contain Panel
tmp := PagePanel.Height + BORD;
if tmp < ScrollBox1.ClientHeight then
tmp := ScrollBox1.ClientHeight-1;
ContainPanel.Height := tmp;
tmp := TotWid;
if tmp < ScrollBox1.ClientWidth then
tmp := ScrollBox1.ClientWidth-1;
ContainPanel.Width := tmp;
// Center the Page Panel
if PagePanel.Height + BORD < ContainPanel.Height then
PagePanel.Top := ContainPanel.Height div 2 - PagePanel.Height div 2
else
PagePanel.Top := BORD div 2;
PagePanel2.Top := PagePanel.Top;
if TotWid < ContainPanel.Width then
PagePanel.Left := ContainPanel.Width div 2 - (TotWid - BORD) div 2
else
PagePanel.Left := BORD div 2;
PagePanel2.Left := PagePanel.Left + PagePanel.Width + BORD;
{Make sure the scroll bars are hidden if not needed}
if (PagePanel.Width +BORD <= ScrollBox1.Width) and
(PagePanel.Height +BORD <= ScrollBox1.Height) then
begin
ScrollBox1.HorzScrollBar.Visible := False;
ScrollBox1.VertScrollBar.Visible := False;
end
else
begin
ScrollBox1.HorzScrollBar.Visible := True;
ScrollBox1.VertScrollBar.Visible := True;
end;
// Set the Zoom Variable
Zoom := z;
ZoomLabel.Caption := Format('%1.0n', [z * 100]) + '%';
end;
procedure TPreviewForm.DrawMetaFile(PB: TPaintBox; mf: TMetaFile);
begin
PB.Canvas.Draw(0, 0, mf);
end;
procedure TPreviewForm.PBPaint(Sender: TObject);
var
PB : TPaintBox;
x1, y1 : integer;
x, y : integer;
Factor : double;
Draw : boolean;
Page : integer;
begin
PB := Sender as TPaintBox;
if PB = PB1 then
begin
Draw := CurPage < MFPrinter.LastAvailablePage;
Page := CurPage;
end
else
begin
// PB2
Draw := TwoPageBut.Down and (CurPage+1 < MFPrinter.LastAvailablePage);
Page := CurPage + 1;
end;
SetMapMode(PB.Canvas.Handle, MM_ANISOTROPIC);
SetWindowExtEx(PB.Canvas.Handle, MFPrinter.PaperWidth, MFPrinter.PaperHeight, nil);
SetViewportExtEx(PB.Canvas.Handle, PB.Width, PB.Height, nil);
SetWindowOrgEx(PB.Canvas.Handle, -MFPrinter.OffsetX, -MFPrinter.OffsetY, nil);
if Draw then
DrawMetaFile(PB, MFPrinter.MetaFiles[Page]);
if GridBut.Down then
begin
SetWindowOrgEx(PB.Canvas.Handle, 0, 0, nil);
PB.Canvas.Pen.Color := clLtGray;
if UnitsBox.ItemIndex = 0 then
Factor := 1.0
else Factor := 2.54;
for x := 1 to Round(MFPrinter.PaperWidth / MFPrinter.PixelsPerInchX * Factor) do
begin
x1 := Round(MFPrinter.PixelsPerInchX * x / Factor);
PB.Canvas.MoveTo(x1, 0);
PB.Canvas.LineTo(x1, MFPrinter.PaperHeight);
end;
for y := 1 to Round(MFPrinter.PaperHeight / MFPrinter.PixelsPerInchY * Factor) do
begin
y1 := Round(MFPrinter.PixelsPerInchY * y / Factor);
PB.Canvas.MoveTo(0, y1);
PB.Canvas.LineTo(MFPrinter.PaperWidth, y1);
end;
end;
end;
procedure TPreviewForm.GridButClick(Sender: TObject);
begin
PB1.Invalidate;
PB2.Invalidate;
end;
procedure TPreviewForm.OnHint(Sender: TObject);
begin
HintLabel.Caption := Application.Hint;
end;
procedure TPreviewForm.FormShow(Sender: TObject);
begin
CurPage := 0;
OldHint := Application.OnHint;
Application.OnHint := OnHint;
CheckEnable;
{$ifdef delphi7_plus}
PagePanel.ParentBackground := False;
PagePanel2.ParentBackground := False;
{$endif}
ScrollBox1Resize(Nil); {make sure it gets sized}
end;
procedure TPreviewForm.SetCurPage(Val: integer);
var
tmp : integer;
begin
FCurPage := Val;
tmp := 0;
if MFPrinter <> nil then
tmp := MFPrinter.LastAvailablePage;
CurPageLabel.Caption := Format('Page %d of %d', [Val+1, tmp]);
PB1.Invalidate;
PB2.Invalidate;
end;
procedure TPreviewForm.ZoomBoxChange(Sender: TObject);
begin
ScrollBox1Resize(nil);
ScrollBox1Resize(nil);
end;
procedure TPreviewForm.TwoPageButClick(Sender: TObject);
begin
ZoomBox.ItemIndex := 0;
ScrollBox1Resize(nil);
end;
procedure TPreviewForm.NextPageButClick(Sender: TObject);
begin
CurPage := CurPage + 1;
CheckEnable;
end;
procedure TPreviewForm.PrevPageButClick(Sender: TObject);
begin
CurPage := CurPage - 1;
CheckEnable;
end;
procedure TPreviewForm.CheckEnable;
begin
NextPageBut.Enabled := CurPage+1 < MFPrinter.LastAvailablePage;
PrevPageBut.Enabled := CurPage > 0;
NextPageSpeed.Enabled := NextPageBut.Enabled;
PrevPageSpeed.Enabled := PrevPageBut.Enabled;
FirstPageSpeed.Enabled := PrevPageBut.Enabled;
LastPageSPeed.Enabled := NextPageBut.Enabled;
PageNumSpeed.Enabled := MFPrinter.LastAvailablePage > 1;
end;
procedure TPreviewForm.FirstPageSpeedClick(Sender: TObject);
begin
CurPage := 0;
CheckEnable;
end;
procedure TPreviewForm.LastPageSpeedClick(Sender: TObject);
begin
CurPage := MFPrinter.LastAvailablePage-1;
CheckEnable;
end;
procedure TPreviewForm.ZoomCursorButClick(Sender: TObject);
begin
PB1.Cursor := crZoom;
PB2.Cursor := crZoom;
end;
procedure TPreviewForm.HandCursorButClick(Sender: TObject);
begin
PB1.Cursor := crHandDrag;
PB2.Cursor := crHandDrag;
end;
procedure TPreviewForm.PB1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
sx, sy : single;
nx, ny : integer;
begin
if ZoomCursorBut.Down then
begin
sx := X / PagePanel.Width;
sy := Y / PagePanel.Height;
if (ssLeft in Shift) and (Zoom < 20.0) then Zoom := Zoom * ZOOMFACTOR;
if (ssRight in Shift) and (Zoom > 0.1) then Zoom := Zoom / ZOOMFACTOR;
ZoomBox.ItemIndex := 2;
ScrollBox1Resize(nil);
nx := TRUNC(sx * PagePanel.Width);
ny := TRUNC(sy * PagePanel.Height);
ScrollBox1.HorzScrollBar.Position := nx - ScrollBox1.Width div 2;
ScrollBox1.VertScrollBar.Position := ny - ScrollBox1.Height div 2;
end;
if HandCursorBut.Down then
begin
DownX := X;
DownY := Y;
Moving := True;
end;
end;
procedure TPreviewForm.PB1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Moving then
begin
ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position + (DownX - X);
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + (DownY - Y);
end;
end;
procedure TPreviewForm.PB1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Moving := False;
end;
procedure TPreviewForm.PrintButClick(Sender: TObject);
var
StatusForm: TPrnStatusForm;
Dummy: boolean;
begin
with PrintDialog1 do
begin
MaxPage := 9999;
ToPage := 1;
Options := [poPageNums];
StatusForm := TPrnStatusForm.Create(Self);
if Execute then
if PrintRange = prAllPages then
StatusForm.DoPrint(Viewer, FromPage, 9999, Dummy)
else
StatusForm.DoPrint(Viewer, FromPage, ToPage, Dummy);
StatusForm.Free;
end;
end;
procedure TPreviewForm.PageNumSpeedClick(Sender: TObject);
var
gp : TGoPageForm;
begin
gp := TGoPageForm.Create(Self);
gp.PageNum.MaxValue := MFPrinter.LastAvailablePage;
gp.PageNum.Value := CurPage + 1;
if gp.ShowModal = mrOK then
begin
CurPage := gp.PageNum.Value - 1;
CheckEnable;
end;
gp.Free;
end;
procedure TPreviewForm.OnePageButMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ZoomBox.ItemIndex := 0;
ScrollBox1Resize(nil);
end;
procedure TPreviewForm.FitPageButClick(Sender: TObject);
begin
ZoomBox.ItemIndex := 0;
ZoomBoxChange(nil);
end;
procedure TPreviewForm.FitWidthButClick(Sender: TObject);
begin
ZoomBox.ItemIndex := 1;
ZoomBoxChange(nil);
end;
procedure TPreviewForm.UnitsBoxChange(Sender: TObject);
begin
if GridBut.down then
begin
PB1.Invalidate;
PB2.Invalidate;
end;
end;
initialization
{$IFDEF LCL}
{$I PreviewForm.lrs} {Include form's resource file}
{$ENDIF}
end.

View File

@ -0,0 +1,60 @@
object PrnStatusForm: TPrnStatusForm
Left = 731
Top = 443
AutoScroll = False
Caption = 'PrnStatusForm'
ClientHeight = 96
ClientWidth = 247
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object StatusLabel: TLabel
Left = 13
Top = 24
Width = 222
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Status'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object CancelButton: TBitBtn
Left = 88
Top = 56
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
TabOrder = 0
OnClick = CancelButtonClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end

View File

@ -0,0 +1,60 @@
object PrnStatusForm: TPrnStatusForm
Left = 731
Top = 443
AutoScroll = False
Caption = 'PrnStatusForm'
ClientHeight = 96
Height = 96
ClientWidth = 247
Width = 247
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 96
object StatusLabel: TLabel
Left = 13
Top = 24
Width = 222
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Status'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object CancelButton: TBitBtn
Left = 88
Top = 56
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
TabOrder = 0
OnClick = CancelButtonClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end

View File

@ -0,0 +1,29 @@
LazarusResources.Add('TPrnStatusForm','FORMDATA',[
'TPF0'#14'TPrnStatusForm'#13'PrnStatusForm'#4'Left'#3#219#2#3'Top'#3#187#1#10
+'AutoScroll'#8#7'Caption'#6#13'PrnStatusForm'#12'ClientHeight'#2'`'#6'Height'
+#2'`'#11'ClientWidth'#3#247#0#5'Width'#3#247#0#5'Color'#7#9'clBtnFace'#12'Fo'
+'nt.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'#7#12'clWindowText'#11'Font'
+'.Height'#2#245#9'Font.Name'#6#5'Arial'#10'Font.Style'#11#0#13'PixelsPerInch'
+#2'`'#0#6'TLabel'#11'StatusLabel'#4'Left'#2#13#3'Top'#2#24#5'Width'#3#222#0#6
+'Height'#2#13#9'Alignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#6'Status'
+#12'Font.Charset'#7#15'DEFAULT_CHARSET'#10'Font.Color'#7#12'clWindowText'#11
+'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#10'Font.Style'#11#0#10'ParentFo'
+'nt'#8#0#0#7'TBitBtn'#12'CancelButton'#4'Left'#2'X'#3'Top'#2'8'#5'Width'#2'K'
+#6'Height'#2#25#6'Cancel'#9#7'Caption'#6#6'Cancel'#8'TabOrder'#2#0#7'OnClick'
+#7#17'CancelButtonClick'#10'Glyph.Data'#10#226#1#0#0#222#1#0#0'BM'#222#1#0#0
+#0#0#0#0'v'#0#0#0'('#0#0#0'$'#0#0#0#18#0#0#0#1#0#4#0#0#0#0#0'h'#1#0#0#0#0#0#0
+#0#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0
+#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0
+#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'33333333333333333'
+'3'#0#0'33'#136'33333333?333333'#0#0'39'#17#131'33'#152'3333'#136#243'33?33'
+#0#0'39'#17#24'39'#17#131'338'#243#143'3?'#136#243'3'#0#0'39'#17#17#131#145
+#17#24'338'#243'8'#243#248'3'#143'3'#0#0'33'#145#17#24#17#17#24'338'#243'3'
+#143#131'38'#243#0#0'339'#17#17#17#17#131'333'#143'3833'#248'3'#0#0'333'#145
+#17#17#24'33338'#243'33?'#131'3'#0#0'3331'#17#17#131'33333'#143'33833'#0#0'3'
+'339'#17#17#131'333338'#243'3'#131'33'#0#0'333'#145#17#17#131'33333833'#143
+'33'#0#0'339'#17#24#17#24'33333'#131'33'#143'33'#0#0'33'#145#17#131#145#17
+#131'333838'#243'8'#243'3'#0#0'33'#145#24'39'#17#24'333'#143'3'#131#143'3'
+#143'3'#0#0'339'#19'33'#145#17'333'#143#248'38'#243'8'#243#0#0'3333339'#25'3'
+'338'#131'33'#143#255#131#0#0'3333333333333338'#136'3'#0#0'33333333333333333'
+'3'#0#0#9'NumGlyphs'#2#2#0#0#0
]);

View File

@ -0,0 +1,101 @@
unit PrintStatusForm;
interface
uses
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, HTMLView {$IFNDEF LCL}, MetaFilePrinter {$ENDIF};
type
TPrnStatusForm = class(TForm)
StatusLabel: TLabel;
CancelButton: TBitBtn;
procedure CancelButtonClick(Sender: TObject);
private
{ Private declarations }
Viewer: ThtmlViewer;
Canceled: boolean;
{$IFNDEF LCL}
MFPrinter: TMetaFilePrinter;
{$ENDIF}
FromPage, ToPage: integer;
procedure PageEvent(Sender: TObject; PageNum: integer; var Stop: boolean);
public
{ Public declarations }
{$IFNDEF LCL}
procedure DoPreview(AViewer: ThtmlViewer; AMFPrinter: TMetaFilePrinter;
var Abort: boolean);
{$ENDIF}
procedure DoPrint(AViewer: ThtmlViewer; FromPg, ToPg: integer;
var Abort: boolean);
end;
var
PrnStatusForm: TPrnStatusForm;
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$ENDIF}
{$IFNDEF LCL}
procedure TPrnStatusForm.DoPreview(AViewer: ThtmlViewer; AMFPrinter: TMetaFilePrinter;
var Abort: boolean);
begin
Viewer := AViewer;
MFPrinter := AMFPrinter;
Viewer.OnPageEvent := PageEvent;
try
Show;
Viewer.PrintPreview(MFPrinter);
Hide;
Abort := Canceled;
finally
Viewer.OnPageEvent := Nil;
end;
end;
{$ENDIF}
procedure TPrnStatusForm.DoPrint(AViewer: ThtmlViewer; FromPg, ToPg: integer;
var Abort: boolean);
begin
Viewer := AViewer;
FromPage := FromPg;
ToPage := ToPg;
Viewer.OnPageEvent := PageEvent;
try
Show;
Viewer.Print(FromPage, ToPage);
Hide;
Abort := Canceled;
finally
Viewer.OnPageEvent := Nil;
end;
end;
procedure TPrnStatusForm.PageEvent(Sender: TObject; PageNum: integer; var Stop: boolean);
begin
if Canceled then
Stop := True
else
if PageNum = 0 then
StatusLabel.Caption := 'Formating'
else
StatusLabel.Caption := 'Page Number '+ IntToStr(PageNum);
Update;
end;
procedure TPrnStatusForm.CancelButtonClick(Sender: TObject);
begin
Canceled := True;
end;
initialization
{$IFDEF LCL}
{$I PrintStatusForm.lrs} {Include form's resource file}
{$ENDIF}
end.

View File

@ -0,0 +1,73 @@
object SubmitForm: TSubmitForm
Left = 200
Top = 99
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Submit Results'
ClientHeight = 273
ClientWidth = 427
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 16
Top = 19
Width = 43
Height = 16
Caption = 'Action:'
end
object Label2: TLabel
Left = 9
Top = 43
Width = 52
Height = 16
Caption = 'Method:'
end
object Label3: TLabel
Left = 18
Top = 71
Width = 50
Height = 16
Caption = 'Results'
end
object ActionText: TEdit
Left = 67
Top = 14
Width = 342
Height = 24
TabStop = False
ReadOnly = True
TabOrder = 0
end
object MethodText: TEdit
Left = 68
Top = 41
Width = 342
Height = 24
TabStop = False
ReadOnly = True
TabOrder = 1
end
object ResultBox: TListBox
Left = 17
Top = 90
Width = 392
Height = 145
TabStop = False
ItemHeight = 16
TabOrder = 2
end
object Button1: TButton
Left = 172
Top = 242
Width = 73
Height = 28
Caption = '&Close'
Default = True
TabOrder = 3
OnClick = Button1Click
end
end

View File

@ -0,0 +1,74 @@
object SubmitForm: TSubmitForm
Left = 200
Top = 99
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Submit Results'
ClientHeight = 273
Height = 273
ClientWidth = 427
Width = 427
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 96
object Label1: TLabel
Left = 16
Top = 19
Width = 43
Height = 16
Caption = 'Action:'
end
object Label2: TLabel
Left = 9
Top = 43
Width = 52
Height = 16
Caption = 'Method:'
end
object Label3: TLabel
Left = 18
Top = 71
Width = 50
Height = 16
Caption = 'Results'
end
object ActionText: TEdit
Left = 67
Top = 14
Width = 342
Height = 24
TabStop = False
ReadOnly = True
TabOrder = 0
end
object MethodText: TEdit
Left = 68
Top = 41
Width = 342
Height = 24
TabStop = False
ReadOnly = True
TabOrder = 1
end
object ResultBox: TListBox
Left = 17
Top = 90
Width = 392
Height = 145
TabStop = False
ItemHeight = 16
TabOrder = 2
end
object Button1: TButton
Left = 172
Top = 242
Width = 73
Height = 28
Caption = '&Close'
Default = True
TabOrder = 3
OnClick = Button1Click
end
end

View File

@ -0,0 +1,19 @@
LazarusResources.Add('TSubmitForm','FORMDATA',[
'TPF0'#11'TSubmitForm'#10'SubmitForm'#4'Left'#3#200#0#3'Top'#2'c'#11'BorderIc'
+'ons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#14'Su'
+'bmit Results'#12'ClientHeight'#3#17#1#6'Height'#3#17#1#11'ClientWidth'#3#171
+#1#5'Width'#3#171#1#10'Font.Color'#7#12'clWindowText'#11'Font.Height'#2#243#9
+'Font.Name'#6#5'Arial'#10'Font.Style'#11#0#13'PixelsPerInch'#2'`'#0#6'TLabel'
+#6'Label1'#4'Left'#2#16#3'Top'#2#19#5'Width'#2'+'#6'Height'#2#16#7'Caption'#6
+#7'Action:'#0#0#6'TLabel'#6'Label2'#4'Left'#2#9#3'Top'#2'+'#5'Width'#2'4'#6
+'Height'#2#16#7'Caption'#6#7'Method:'#0#0#6'TLabel'#6'Label3'#4'Left'#2#18#3
+'Top'#2'G'#5'Width'#2'2'#6'Height'#2#16#7'Caption'#6#7'Results'#0#0#5'TEdit'
+#10'ActionText'#4'Left'#2'C'#3'Top'#2#14#5'Width'#3'V'#1#6'Height'#2#24#7'Ta'
+'bStop'#8#8'ReadOnly'#9#8'TabOrder'#2#0#0#0#5'TEdit'#10'MethodText'#4'Left'#2
+'D'#3'Top'#2')'#5'Width'#3'V'#1#6'Height'#2#24#7'TabStop'#8#8'ReadOnly'#9#8
+'TabOrder'#2#1#0#0#8'TListBox'#9'ResultBox'#4'Left'#2#17#3'Top'#2'Z'#5'Width'
+#3#136#1#6'Height'#3#145#0#7'TabStop'#8#10'ItemHeight'#2#16#8'TabOrder'#2#2#0
+#0#7'TButton'#7'Button1'#4'Left'#3#172#0#3'Top'#3#242#0#5'Width'#2'I'#6'Heig'
+'ht'#2#28#7'Caption'#6#6'&Close'#7'Default'#9#8'TabOrder'#2#3#7'OnClick'#7#12
+'Button1Click'#0#0#0
]);

View File

@ -0,0 +1,45 @@
unit Submit;
interface
uses
{$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TSubmitForm = class(TForm)
ActionText: TEdit;
MethodText: TEdit;
Label1: TLabel;
Label2: TLabel;
ResultBox: TListBox;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SubmitForm: TSubmitForm;
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$ENDIF}
procedure TSubmitForm.Button1Click(Sender: TObject);
begin
Close;
end;
initialization
{$IFDEF LCL}
{$I SUBMIT.lrs} {Include form's resource file}
{$ENDIF}
end.