home *** CD-ROM | disk | FTP | other *** search
- object FrmPrint: TFrmPrint
- Left = 346
- Top = 226
- Width = 600
- Height = 420
- Caption = 'Print Preview'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyUp = FormKeyUp
- PixelsPerInch = 120
- TextHeight = 16
- object PnlPreview: TPanel
- Left = 0
- Top = 0
- Width = 592
- Height = 393
- Align = alClient
- TabOrder = 0
- object PnlPreviewToolbar: TPanel
- Left = 1
- Top = 351
- Width = 590
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object BtnPrint: TButton
- Left = 494
- Top = 6
- Width = 89
- Height = 31
- Anchors = [akTop, akRight]
- Caption = 'Print'
- Default = True
- ModalResult = 1
- TabOrder = 0
- OnClick = BtnPrintClick
- end
- object Btncancel: TButton
- Left = 397
- Top = 7
- Width = 82
- Height = 29
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- OnClick = BtncancelClick
- end
- object BtnSave: TButton
- Left = 4
- Top = 4
- Width = 127
- Height = 31
- Caption = 'Save as Default'
- ModalResult = 2
- TabOrder = 2
- OnClick = BtnSaveClick
- end
- object BtnOriginal: TButton
- Left = 136
- Top = 4
- Width = 151
- Height = 31
- Caption = 'Use Original Template'
- TabOrder = 3
- OnClick = BtnOriginalClick
- end
- end
- object MemoPreview: TRichEdit
- Left = 1
- Top = 29
- Width = 590
- Height = 322
- Align = alClient
- HideSelection = False
- ScrollBars = ssVertical
- TabOrder = 1
- WantTabs = True
- OnSelectionChange = MemoPreviewSelectionChange
- end
- object PnlHTMLToolbar: TPanel
- Left = 1
- Top = 1
- Width = 590
- Height = 28
- Align = alTop
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 2
- object BtnJustifyLeft: TSpeedButton
- Left = 306
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Left justify'
- Flat = True
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
- FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF0000000000FFFFFFFF
- 0000FFFFFFFFFFFFFFFFFFFF0000FF000000000000000FFF0000FFFFFFFFFFFF
- FFFFFFFF0000FF0000000000FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF00
- 0000000000000FFF0000FFFFFFFFFFFFFFFFFFFF0000FF0000000000FFFFFFFF
- 0000FFFFFFFFFFFFFFFFFFFF0000FF000000000000000FFF0000FFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
- FFFFFFFFFFFFFFFF0000}
- OnClick = BtnJustifyLeftClick
- end
- object BtnJustifyCenter: TSpeedButton
- Left = 330
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Center justify'
- Flat = True
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
- FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFF00000000FFFFFF
- 0000FFFFFFFFFFFFFFFFFFFF0000FFF00000000000000FFF0000FFFFFFFFFFFF
- FFFFFFFF0000FFFFFF00000000FFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFF0
- 0000000000000FFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFF00000000FFFFFF
- 0000FFFFFFFFFFFFFFFFFFFF0000FFF00000000000000FFF0000FFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
- FFFFFFFFFFFFFFFF0000}
- OnClick = BtnJustifyCenterClick
- end
- object BtnJustifyRight: TSpeedButton
- Left = 354
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Right justify'
- Flat = True
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
- FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFF0000000000FF
- 0000FFFFFFFFFFFFFFFFFFFF0000FFF000000000000000FF0000FFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFF0000000000FF0000FFFFFFFFFFFFFFFFFFFF0000FFF0
- 00000000000000FF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFF0000000000FF
- 0000FFFFFFFFFFFFFFFFFFFF0000FFF000000000000000FF0000FFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
- FFFFFFFFFFFFFFFF0000}
- OnClick = BtnJustifyRightClick
- end
- object BtnBold: TSpeedButton
- Left = 228
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Bold'
- AllowAllUp = True
- GroupIndex = 3
- Caption = 'B'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 20
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnBoldClick
- end
- object BtnItalic: TSpeedButton
- Left = 252
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Italic'
- AllowAllUp = True
- GroupIndex = 4
- Caption = ' I '
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 20
- Font.Name = 'Times New Roman'
- Font.Style = [fsItalic]
- ParentFont = False
- OnClick = BtnItalicClick
- end
- object BtnUnderline: TSpeedButton
- Left = 276
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Underline'
- AllowAllUp = True
- GroupIndex = 5
- Caption = 'U'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 20
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- OnClick = BtnUnderlineClick
- end
- object BtnIndentOn: TSpeedButton
- Left = 406
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Indent paragraph'
- Flat = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888844444444444444888888888888888888444444444444448888888888888
- 8888844444444444444888888888888888888888888844444448888818888888
- 8888888811884444444811111118888888881111111844444448888811888888
- 8888888818884444444888888888888888888888888888888888}
- OnClick = BtnIndentOnClick
- end
- object BtnIndentOff: TSpeedButton
- Left = 430
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Unindent paragraph'
- Flat = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888844444444444444888888888888888888444444444444448888888888888
- 8888844444444444444888888888888888888888888844444448881888888888
- 8888811888884444444811111118888888881111111844444448811888888888
- 8888881888884444444888888888888888888888888888888888}
- OnClick = BtnIndentOffClick
- end
- object btnBullets: TSpeedButton
- Left = 382
- Top = 2
- Width = 24
- Height = 24
- Hint = 'Toggle bullets'
- AllowAllUp = True
- GroupIndex = 6
- Flat = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888888888888888888888888888888888808888888888888800088444444
- 4448880888888888888888888888888888888808888888888888800088444444
- 4448880888888888888888888888888888888808888888888888800088444444
- 4448880888888888888888888888888888888888888888888888}
- OnClick = btnBulletsClick
- end
- object cbFontSize: TComboBox
- Left = 130
- Top = 2
- Width = 52
- Height = 24
- Hint = 'Choose font size'
- Ctl3D = False
- DropDownCount = 12
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- '6'
- '7'
- '8'
- '9'
- '10'
- '11'
- '12'
- '13'
- '14'
- '16'
- '18'
- '20'
- '22'
- '24'
- '28'
- '32'
- '36'
- '40'
- '48'
- '60'
- '72'
- '90')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 1
- OnClick = cbFontSizeClick
- end
- object BtnFontColour: TDFSColorButton
- Left = 186
- Top = 2
- Width = 39
- Height = 24
- Hint = 'Font colour'
- Caption = 'BtnFontColour'
- TabOrder = 2
- OtherBtnCaption = '&Other'
- OtherColor = clBtnFace
- PaletteColors.XSize = 4
- PaletteColors.YSize = 5
- PaletteColors.Colors = (
- 16777215
- 255
- 65280
- 16711680
- 12572607
- 0
- 127
- 32512
- 8323072
- 15712159
- 12566463
- 65535
- 16776960
- 16711935
- 15726591
- 8355711
- 32639
- 8355584
- 8323199
- 10461087)
- CustomColors.XSize = 8
- CustomColors.YSize = 2
- CustomColors.Colors = (
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215
- 16777215)
- Flat = True
- OnColorChange = Black1Click
- end
- object cbFontName: TWPopOutFntCBox
- Left = 2
- Top = 2
- Width = 128
- Height = 22
- Hint = 'Choose font'
- OnClick = cbFontNameClick
- DropDownCount = 16
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- PanelColor = clBlack
- MoveUsedToTop = False
- PopUpWidth = 200
- PopUpHeight = 45
- FontName = 'MS Sans Serif'
- end
- end
- end
- end
-