object frmPrintPreview: TfrmPrintPreview Left = 455 Top = 181 Width = 442 Height = 492 BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] Caption = 'Print Preview' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True OldCreateOrder = True Position = poDefaultPosOnly OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object dckPreviewTop: TDock97 Left = 0 Top = 0 Width = 434 Height = 26 AllowDrag = False LimitToOneRow = True object tbPreview: TToolbar97 Left = 0 Top = 0 BorderStyle = bsNone Caption = 'Print Preview' CloseButton = False DefaultDock = dckPreviewTop DockableTo = [] DockPos = 0 DragHandleStyle = dhNone FullSize = True ParentShowHint = False ShowHint = True TabOrder = 0 object tbbPageSetup: TToolbarButton97 Left = 68 Top = 0 Width = 23 Height = 22 Hint = 'Page Setup' HelpContext = 7020 ImageIndex = 23 Images = MainForm.imglMenus OnClick = tbbPageSetupClick end object tbbPrint: TToolbarButton97 Left = 0 Top = 0 Width = 62 Height = 22 Action = acPrint Images = MainForm.imglMenus end object tbbClose: TToolbarButton97 Left = 362 Top = 0 Width = 46 Height = 22 Hint = 'Close Preview' Caption = '&Close' HelpContext = 7100 OnClick = tbbCloseClick end object ToolbarSep971: TToolbarSep97 Left = 91 Top = 0 end object ToolbarSep972: TToolbarSep97 Left = 356 Top = 0 end object tbbNextPage: TToolbarButton97 Left = 333 Top = 0 Width = 23 Height = 22 Action = acNextPage DisplayMode = dmGlyphOnly Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333348 33333333333333448333333333333344483300000000004444830FFFFFFFFF44 44430F777777774444330FF777F7774443330F788878884403330FFF8FFF884F 03330F778888887F03330FFFF8F887FF03330F7778F8877F03330FFFFF887FFF 03330F777788777F03330FFFFFFFFFFF03330000000000000333} Images = MainForm.imglMenus end object tbbPreviousPage: TToolbarButton97 Left = 278 Top = 0 Width = 23 Height = 22 Action = acPreviousPage DisplayMode = dmGlyphOnly Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334333333 3333333344333333333333344433333333333344440000000000344444FFFFFF FFF033444477777777F0333444777F7777F033304488878888F03330F4F8FFF8 87F03330F778888887F03330FFFF8F887FF03330F7778F8877F03330FFFFF887 FFF03330F777788777F03330FFFFFFFFFFF03330000000000000} Images = MainForm.imglMenus end object tbbZoom100Percent: TToolbarButton97 Left = 97 Top = 0 Width = 23 Height = 22 Action = acZoom100Percent AllowAllUp = True GroupIndex = 100 DisplayMode = dmGlyphOnly Glyph.Data = { 42010000424D4201000000000000760000002800000013000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333321200333333333333333333351500333000000000000033381800330F FFFFFFFFFFFF033B1B00330F00000000000F033E1E00330FFFFFFFFFFFFF0331 2100330F00000000000F03342400330FFFFFFFFFFFFF03372700330F00000000 000F033A2A00330FFFFFFFFFFFFF033D2D00330F00000000000F03303000330F FFFFFFFFFFFF03333300330F00000000000F03363600330FFFFFFFFFFFFF0339 39003330000000000000333C3C003333333333333333333F3F00333333333333 333333324200} Images = MainForm.imglMenus end object ZoomWholePage: TToolbarButton97 Left = 143 Top = 0 Width = 23 Height = 22 Action = acZoomWholePage AllowAllUp = True GroupIndex = 100 DisplayMode = dmGlyphOnly Glyph.Data = { 42010000424D4201000000000000760000002800000013000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333070003333333333333333333373003330000000000000333676003306 868686868686033979003308680000000868033C7C003306860FFFFF0686033F 7F003308680F444F0868033282003306860FFFFF0686033585003308680F44FF 0868033888003306860FFFFF0686033B8B003308680F444F0868033E8E003306 860FFFFF06860331910033086800000008680334940033068686868686860337 97003330000000000000333A9A003333333333333333333D9D00333333333333 33333330A000} Images = MainForm.imglMenus end object ZoomPageWidth: TToolbarButton97 Left = 120 Top = 0 Width = 23 Height = 22 Action = acZoomPageWidth AllowAllUp = True GroupIndex = 100 DisplayMode = dmGlyphOnly Glyph.Data = { 42010000424D4201000000000000760000002800000013000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333300000333333333333333333300000333000000000000033300000334F FFFFFFFFFFFF03300000334FFFF000000FFF03300000334FFFFFFFFFFFFF0330 0000334FFFF00000FFFF03396400334FFFFFFFFFFFFF03300000334FF4F0000F F4FF03306100334F44FFFFFFF44F033D7D003344444F000F444403308000334F 44FFFFFFF44F03338300334FF4F00000F4FF03368600334FFFFFFFFFFFFF0339 89003330000000000000333C8C003333333333333333333F8F00333333333333 333333329200} Images = MainForm.imglMenus end object ToolbarSep975: TToolbarSep97 Left = 274 Top = 0 Blank = True SizeHorz = 4 end object lblZoom: TLabel Left = 172 Top = 4 Width = 30 Height = 13 Caption = '&Zoom:' FocusControl = cmbZoom end object ToolbarSep974: TToolbarSep97 Left = 166 Top = 0 Blank = True end object ToolbarSep973: TToolbarSep97 Left = 202 Top = 0 Blank = True SizeHorz = 4 end object ToolbarSep976: TToolbarSep97 Left = 301 Top = 0 Blank = True SizeHorz = 4 end object ToolbarSep977: TToolbarSep97 Left = 329 Top = 0 Blank = True SizeHorz = 4 end object ToolbarSep978: TToolbarSep97 Left = 62 Top = 0 end object cmbZoom: TComboBox Left = 206 Top = 0 Width = 68 Height = 21 Hint = 'Zoom' HelpContext = 7060 Ctl3D = True DropDownCount = 11 ItemHeight = 13 Items.Strings = ( '500%' '200%' '150%' '100%' '75%' '50%' '25%' '10%' 'Page Width' 'Whole Page') ParentCtl3D = False TabOrder = 0 OnClick = cmbZoomClick OnKeyPress = cmbZoomKeyPress end object ediGoToPage: TEdit97 Left = 305 Top = 1 Width = 24 Height = 19 Hint = 'Goto page' HelpContext = 7080 TabOrder = 1 Text = '1' OnKeyPress = ediGoToPageKeyPress end end end object pnlPreview: TPanel Left = 0 Top = 26 Width = 434 Height = 420 Align = alClient BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 4 Caption = 'Generating Preview...' FullRepaint = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Prn: TPagePrinter Left = 5 Top = 5 Width = 424 Height = 410 HelpContext = 7110 HorzScrollBar.Increment = 16 HorzScrollBar.Range = 403 HorzScrollBar.Tracking = True VertScrollBar.Increment = 16 VertScrollBar.Range = 567 VertScrollBar.Tracking = True Align = alClient AutoScroll = False BorderStyle = bsNone Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentCtl3D = False PopupMenu = ppmPreview TabOrder = 0 Visible = False OnMouseWheelDown = PrnMouseWheelDown OnMouseWheelUp = PrnMouseWheelUp OnResize = PrnResize MeasureUnit = muMillimeters AutoFooterFont = False AutoHeaderFont = False FooterFont.Charset = DEFAULT_CHARSET FooterFont.Color = clWindowText FooterFont.Height = -16 FooterFont.Name = 'Tahoma' FooterFont.Style = [] FooterFormat = '<0' GradientBackground = False HeaderFont.Charset = DEFAULT_CHARSET HeaderFont.Color = clWindowText HeaderFont.Height = -16 HeaderFont.Name = 'Tahoma' HeaderFont.Style = [fsBold] HeaderFormat = '<0' MarginBottom = 10.000000000000000000 MarginLeft = 10.000000000000000000 MarginRight = 10.000000000000000000 MarginTop = 10.000000000000000000 SpaceH = 0 OnPreviewEnd = PrnPreviewEnd PageBorders = [pbTop, pbBottom, pbLeft, pbRight] ShadowOffset = 2 ShowMargins = False TableGrid = True Title = 'FontLister' WordWrap = False ZoomPercent = 50 end end object stbPreview: TDFSStatusBar Left = 0 Top = 446 Width = 434 Height = 19 HelpContext = 7120 Panels = < item Bevel = pbNone Enabled = True Width = 50 end item Alignment = taCenter Bevel = pbNone PanelType = sptGauge Enabled = True Width = 100 end> SimplePanel = False OnResize = stbPreviewResize end object ZoomTimer: TTimer Enabled = False Interval = 50 OnTimer = ZoomTimerTimer Left = 12 Top = 36 end object ppmPreview: TPopupMenu Images = MainForm.imglMenus Left = 48 Top = 42 object mitNextPage: TMenuItem Action = acNextPage end object mitPreviousPage: TMenuItem Action = acPreviousPage end object N1: TMenuItem Caption = '-' end object mitZoom100: TMenuItem Action = acZoom100Percent GroupIndex = 101 RadioItem = True end object mitZoomPageWidth: TMenuItem Action = acZoomPageWidth GroupIndex = 101 RadioItem = True end object mitZoomWholePage: TMenuItem Action = acZoomWholePage GroupIndex = 101 RadioItem = True end object N2: TMenuItem Caption = '-' GroupIndex = 101 end object mitPrint: TMenuItem Action = acPrint GroupIndex = 101 end end object anlPreview: TActionList Images = MainForm.imglMenus Left = 80 Top = 42 object acZoom100Percent: TAction Caption = 'Zoom 100 Per¢' HelpContext = 7030 Hint = 'Zoom 100%|Zooms preview to actual size.' ImageIndex = 42 OnExecute = acZoom100PercentExecute end object acZoomPageWidth: TAction Caption = 'Zoom Page &Width' HelpContext = 7040 Hint = 'Page Width|Zooms to width of page.' ImageIndex = 43 OnExecute = acZoomPageWidthExecute end object acZoomWholePage: TAction Caption = 'Zoom W&hole Page' HelpContext = 7050 Hint = 'Whole Page|Zooms to fit entire page.' ImageIndex = 44 OnExecute = acZoomWholePageExecute end object acNextPage: TAction Caption = '&Next Page' HelpContext = 7090 Hint = 'Next page|Moves to next page in set.' ImageIndex = 45 OnExecute = acNextPageExecute end object acPreviousPage: TAction Caption = 'Pre&vious Page' HelpContext = 7070 Hint = 'Previous page|Moves to previous page in set.' ImageIndex = 46 OnExecute = acPreviousPageExecute end object acPrint: TAction Caption = '&Print' HelpContext = 7010 Hint = 'Print|Prints shown preview.' ImageIndex = 1 OnExecute = acPrintExecute end end end