home *** CD-ROM | disk | FTP | other *** search
- object fPrintPrev: TfPrintPrev
- Left = 288
- Top = 161
- Width = 540
- Height = 450
- Caption = 'N�hled p�ed tiskem'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- OnMouseWheel = FormMouseWheel
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object SynEditPrintPrev: TSynEditPrintPreview
- Left = 0
- Top = 22
- Width = 532
- Height = 401
- OnMouseDown = SynEditPrintPrevMouseDown
- end
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 532
- Height = 22
- AutoSize = True
- ButtonWidth = 24
- Caption = 'ToolBar1'
- EdgeBorders = []
- Flat = True
- Images = fPSPad.MainImageList
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- object ToolButton1: TToolButton
- Left = 0
- Top = 0
- Action = FirstCmd
- end
- object ToolButton2: TToolButton
- Left = 24
- Top = 0
- Action = PrevCmd
- end
- object ToolButton3: TToolButton
- Left = 48
- Top = 0
- Action = NextCmd
- end
- object ToolButton4: TToolButton
- Left = 72
- Top = 0
- Action = LastCmd
- end
- object ToolButton5: TToolButton
- Left = 96
- Top = 0
- Width = 8
- Caption = 'ToolButton5'
- ImageIndex = 4
- Style = tbsSeparator
- end
- object tbZoom: TToolButton
- Left = 104
- Top = 0
- Action = ZoomCmd
- DropdownMenu = PopupMenu1
- Style = tbsDropDown
- end
- object ToolButton7: TToolButton
- Left = 141
- Top = 0
- Width = 8
- Caption = 'ToolButton7'
- ImageIndex = 5
- Style = tbsSeparator
- end
- object ToolButton6: TToolButton
- Left = 149
- Top = 0
- Action = fPSPad.aPrintSetup
- end
- object ToolButton14: TToolButton
- Left = 173
- Top = 0
- Action = fPSPad.aPageSetup
- end
- object ToolButton8: TToolButton
- Left = 197
- Top = 0
- Action = fPSPad.aPrint
- end
- object ToolButton9: TToolButton
- Left = 221
- Top = 0
- Width = 8
- Caption = 'ToolButton9'
- ImageIndex = 6
- Style = tbsSeparator
- end
- object ToolButton13: TToolButton
- Left = 229
- Top = 0
- Action = aShowSyntax
- end
- object ToolButton10: TToolButton
- Left = 253
- Top = 0
- Action = aColorPrint
- end
- object ToolButton12: TToolButton
- Left = 277
- Top = 0
- Action = aLineNumber
- end
- object ToolButton11: TToolButton
- Left = 301
- Top = 0
- Width = 8
- Caption = 'ToolButton11'
- ImageIndex = 7
- Style = tbsSeparator
- end
- object bExit: TButton
- Left = 309
- Top = 0
- Width = 61
- Height = 22
- Hint = 'Ukon�en� n�hledu'
- Cancel = True
- Caption = '&Konec'
- TabOrder = 0
- OnClick = bExitClick
- end
- end
- object ActionList: TActionList
- Left = 211
- Top = 61
- object FirstCmd: TAction
- Caption = 'FirstCmd'
- Hint = 'Skok na prvn� str�nku'
- ImageIndex = 23
- ShortCut = 16417
- OnExecute = FirstCmdExecute
- end
- object PrevCmd: TAction
- Caption = 'PrevCmd'
- Hint = 'P�echod na p�edchoz� str�nku'
- ImageIndex = 20
- ShortCut = 33
- OnExecute = PrevCmdExecute
- end
- object NextCmd: TAction
- Caption = 'NextCmd'
- Hint = 'P�echod na dal�� str�nku'
- ImageIndex = 22
- ShortCut = 34
- OnExecute = NextCmdExecute
- end
- object LastCmd: TAction
- Caption = 'LastCmd'
- Hint = 'Skok na posledn� str�nku'
- ImageIndex = 21
- ShortCut = 16418
- OnExecute = LastCmdExecute
- end
- object ZoomCmd: TAction
- Caption = 'FitCmd'
- Hint = 'Zv�t�en� / zm�n�en� str�nky'
- ImageIndex = 19
- ShortCut = 32858
- OnExecute = ZoomCmdExecute
- end
- object aMoveUp: TAction
- Caption = 'aMoveUp'
- ShortCut = 38
- OnExecute = aMoveUpExecute
- end
- object aMoveDown: TAction
- Caption = 'aMoveDown'
- ShortCut = 40
- OnExecute = aMoveDownExecute
- end
- object aMoveLeft: TAction
- Caption = 'aMoveLeft'
- ShortCut = 37
- OnExecute = aMoveLeftExecute
- end
- object aMoveRight: TAction
- Caption = 'aMoveRight'
- ShortCut = 39
- OnExecute = aMoveRightExecute
- end
- object aColorPrint: TAction
- Caption = 'Barevn� tisk'
- Hint = 'Syntaxe bude tisknuta barevn�'
- ImageIndex = 24
- OnExecute = aColorPrintExecute
- end
- object aLineNumber: TAction
- Caption = '��sla ��dk�'
- Hint = 'Tisknout ��sla ��dk�'
- ImageIndex = 11
- OnExecute = aLineNumberExecute
- end
- object aShowSyntax: TAction
- Caption = 'Zobrazit syntaxi'
- Hint = 'Tisk se zv�razn�n�m syntaxe'
- ImageIndex = 9
- OnExecute = aShowSyntaxExecute
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 176
- Top = 61
- object Fitto: TMenuItem
- Tag = -1
- AutoHotkeys = maAutomatic
- Caption = 'Cel� str�nka'
- OnClick = FittoClick
- end
- object Pagewidth: TMenuItem
- Tag = -2
- Caption = 'Na ���ku str�nky'
- OnClick = FittoClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object N251: TMenuItem
- Tag = 30
- Caption = '30%'
- OnClick = FittoClick
- end
- object N501: TMenuItem
- Tag = 50
- Caption = '50%'
- OnClick = FittoClick
- end
- object N751: TMenuItem
- Tag = 75
- Caption = '75%'
- OnClick = FittoClick
- end
- object OriginalSize: TMenuItem
- Tag = 100
- Caption = '100%'
- OnClick = FittoClick
- end
- object N1501: TMenuItem
- Tag = 150
- Caption = '150%'
- OnClick = FittoClick
- end
- object N2001: TMenuItem
- Tag = 200
- Caption = '200%'
- OnClick = FittoClick
- end
- end
- end
-