mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 01:39:47 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			296 lines
		
	
	
		
			7.1 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			296 lines
		
	
	
		
			7.1 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
object IpHTMLPreview: TIpHTMLPreview
 | 
						|
  Left = 274
 | 
						|
  Height = 498
 | 
						|
  Top = 141
 | 
						|
  Width = 863
 | 
						|
  Caption = 'Print preview'
 | 
						|
  ClientHeight = 498
 | 
						|
  ClientWidth = 863
 | 
						|
  OnCreate = FormCreate
 | 
						|
  OnDestroy = FormDestroy
 | 
						|
  OnResize = FormResize
 | 
						|
  OnShow = FormShow
 | 
						|
  Position = poScreenCenter
 | 
						|
  LCLVersion = '1.7'
 | 
						|
  object ToolbarPanel: TPanel
 | 
						|
    Left = 0
 | 
						|
    Height = 36
 | 
						|
    Top = 0
 | 
						|
    Width = 863
 | 
						|
    Align = alTop
 | 
						|
    AutoSize = True
 | 
						|
    BevelOuter = bvNone
 | 
						|
    ClientHeight = 36
 | 
						|
    ClientWidth = 863
 | 
						|
    TabOrder = 0
 | 
						|
    object Label1: TLabel
 | 
						|
      AnchorSideLeft.Control = btnPrev
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 551
 | 
						|
      Height = 15
 | 
						|
      Top = 11
 | 
						|
      Width = 29
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Page:'
 | 
						|
      ParentColor = False
 | 
						|
    end
 | 
						|
    object Label2: TLabel
 | 
						|
      AnchorSideLeft.Control = edtPage
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 622
 | 
						|
      Height = 15
 | 
						|
      Top = 11
 | 
						|
      Width = 11
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'of'
 | 
						|
      ParentColor = False
 | 
						|
    end
 | 
						|
    object lblMaxPage: TLabel
 | 
						|
      AnchorSideLeft.Control = Label2
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 638
 | 
						|
      Height = 1
 | 
						|
      Top = 18
 | 
						|
      Width = 1
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      ParentColor = False
 | 
						|
    end
 | 
						|
    object Label3: TLabel
 | 
						|
      AnchorSideLeft.Control = btnSelectPrinter
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 170
 | 
						|
      Height = 15
 | 
						|
      Top = 11
 | 
						|
      Width = 35
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Zoom:'
 | 
						|
      ParentColor = False
 | 
						|
    end
 | 
						|
    object btnPrint: TButton
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 5
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 51
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Print'
 | 
						|
      Default = True
 | 
						|
      OnClick = btnPrintClick
 | 
						|
      TabOrder = 0
 | 
						|
    end
 | 
						|
    object btnFirst: TButton
 | 
						|
      AnchorSideLeft.Control = btnFit
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 465
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 42
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = '<<'
 | 
						|
      OnClick = btnFirstClick
 | 
						|
      TabOrder = 6
 | 
						|
    end
 | 
						|
    object btnPrev: TButton
 | 
						|
      AnchorSideLeft.Control = btnFirst
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 512
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 34
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = '<'
 | 
						|
      OnClick = btnPrevClick
 | 
						|
      TabOrder = 7
 | 
						|
    end
 | 
						|
    object btnNext: TButton
 | 
						|
      AnchorSideLeft.Control = lblMaxPage
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 644
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 34
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = '>'
 | 
						|
      OnClick = btnNextClick
 | 
						|
      TabOrder = 9
 | 
						|
    end
 | 
						|
    object btnLast: TButton
 | 
						|
      AnchorSideLeft.Control = btnNext
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 683
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 42
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = '>>'
 | 
						|
      OnClick = btnLastClick
 | 
						|
      TabOrder = 10
 | 
						|
    end
 | 
						|
    object btnClose: TButton
 | 
						|
      AnchorSideLeft.Control = btnLast
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 746
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 55
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Left = 16
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Close'
 | 
						|
      ModalResult = 2
 | 
						|
      TabOrder = 11
 | 
						|
    end
 | 
						|
    object edtPage: TEdit
 | 
						|
      AnchorSideLeft.Control = Label1
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 585
 | 
						|
      Height = 23
 | 
						|
      Top = 7
 | 
						|
      Width = 32
 | 
						|
      Alignment = taRightJustify
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      OnChange = edtPageChange
 | 
						|
      TabOrder = 8
 | 
						|
      Text = '1'
 | 
						|
    end
 | 
						|
    object btnSelectPrinter: TButton
 | 
						|
      AnchorSideLeft.Control = btnPrint
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 61
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 104
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Select printer...'
 | 
						|
      OnClick = btnSelectPrinterClick
 | 
						|
      TabOrder = 1
 | 
						|
    end
 | 
						|
    object edtZoom: TSpinEdit
 | 
						|
      AnchorSideLeft.Control = Label3
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 210
 | 
						|
      Height = 23
 | 
						|
      Top = 7
 | 
						|
      Width = 61
 | 
						|
      Alignment = taRightJustify
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      MaxValue = 1000
 | 
						|
      MinValue = 1
 | 
						|
      OnChange = edtZoomChange
 | 
						|
      TabOrder = 2
 | 
						|
      Value = 100
 | 
						|
    end
 | 
						|
    object btnFitHeight: TButton
 | 
						|
      AnchorSideLeft.Control = edtZoom
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 276
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 62
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Height'
 | 
						|
      OnClick = btnFitHeightClick
 | 
						|
      TabOrder = 3
 | 
						|
    end
 | 
						|
    object btnFitWidth: TButton
 | 
						|
      AnchorSideLeft.Control = btnFitHeight
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 343
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 58
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Width'
 | 
						|
      OnClick = btnFitWidthClick
 | 
						|
      TabOrder = 4
 | 
						|
    end
 | 
						|
    object btnFit: TButton
 | 
						|
      AnchorSideLeft.Control = btnFitWidth
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = ToolbarPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 406
 | 
						|
      Height = 25
 | 
						|
      Top = 6
 | 
						|
      Width = 54
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 5
 | 
						|
      Caption = 'Fit all'
 | 
						|
      OnClick = btnFitClick
 | 
						|
      TabOrder = 5
 | 
						|
    end
 | 
						|
  end
 | 
						|
  object ScrollBox1: TScrollBox
 | 
						|
    Left = 0
 | 
						|
    Height = 462
 | 
						|
    Top = 36
 | 
						|
    Width = 863
 | 
						|
    HorzScrollBar.Page = 158
 | 
						|
    HorzScrollBar.Tracking = True
 | 
						|
    VertScrollBar.Page = 125
 | 
						|
    VertScrollBar.Tracking = True
 | 
						|
    Align = alClient
 | 
						|
    ClientHeight = 458
 | 
						|
    ClientWidth = 859
 | 
						|
    Color = clBtnFace
 | 
						|
    ParentColor = False
 | 
						|
    TabOrder = 1
 | 
						|
    object PaperPanel: TPanel
 | 
						|
      Left = 0
 | 
						|
      Height = 125
 | 
						|
      Top = 0
 | 
						|
      Width = 158
 | 
						|
      BevelOuter = bvNone
 | 
						|
      ClientHeight = 125
 | 
						|
      ClientWidth = 158
 | 
						|
      Color = clWhite
 | 
						|
      ParentColor = False
 | 
						|
      TabOrder = 0
 | 
						|
      object PaintBox1: TPaintBox
 | 
						|
        Left = 24
 | 
						|
        Height = 101
 | 
						|
        Top = 24
 | 
						|
        Width = 134
 | 
						|
        OnPaint = PaintBox1Paint
 | 
						|
      end
 | 
						|
    end
 | 
						|
  end
 | 
						|
end
 |