miniunit1.dfm

wptools5 pro 完整源代码 Msword界面的文本编辑器源代码

object WPMiniEd: TWPMiniEd
  Left = 139
  Top = 157
  Width = 539
  Height = 324
  Caption = 'WPTools 5 mini demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 0
    Top = 259
    Width = 531
    Height = 10
    Cursor = crVSplit
    Align = alBottom
  end
  object MainMenu1: TMainMenu
    Left = 74
    Top = 208
    object File1: TMenuItem
      Caption = 'File'
      object Load1: TMenuItem
        Caption = 'Load'
        OnClick = Load1Click
      end
      object Save1: TMenuItem
        Caption = 'Save'
        OnClick = Save1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Close1: TMenuItem
        Caption = 'Close'
        OnClick = Close1Click
      end
    end
    object View1: TMenuItem
      Caption = 'View'
      object PageWidth1: TMenuItem
        Tag = -13
        Caption = 'Page Width'
        OnClick = humbnails1Click
      end
      object FullPage1: TMenuItem
        Tag = -14
        Caption = 'Full Page'
        OnClick = humbnails1Click
      end
      object DoublePage1: TMenuItem
        Tag = -20
        Caption = 'Double Page'
        OnClick = humbnails1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N5001: TMenuItem
        Tag = 500
        Caption = '500 %'
        OnClick = humbnails1Click
      end
      object N2001: TMenuItem
        Tag = 200
        Caption = '200 %'
        OnClick = humbnails1Click
      end
      object N1001: TMenuItem
        Tag = 100
        Caption = '100 %'
        OnClick = humbnails1Click
      end
      object N751: TMenuItem
        Tag = 75
        Caption = '75 %'
        OnClick = humbnails1Click
      end
      object N501: TMenuItem
        Tag = 50
        Caption = '50 %'
        OnClick = humbnails1Click
      end
      object N251: TMenuItem
        Tag = 25
        Caption = '25 %'
        OnClick = humbnails1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object humbnails1: TMenuItem
        Tag = -19
        Caption = 'Thumbnails'
        OnClick = humbnails1Click
      end
    end
    object N2: TMenuItem
      Caption = '?'
      object Info1: TMenuItem
        Caption = 'Info'
        OnClick = Info1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 
      'RTF Files|*.RTF|HTM File|*.HTM;*.HTML|TXT Files|*.TXT|All Files|' +
      '*.*'
    Left = 34
    Top = 47
  end
  object SaveDialog1: TSaveDialog
    Filter = 
      'RTF Files|*.RTF|HTM File|*.HTM;*.HTML|TXT Files|*.TXT|All Files|' +
      '*.*'
    Left = 86
    Top = 47
  end
  object GraphicPopupMenu: TPopupMenu
    Left = 41
    Top = 100
    object ascharacter1: TMenuItem
      Tag = 1
      Caption = 'as character'
      OnClick = reltopagewrapleftandright1Click
    end
    object reltoparautowrap1: TMenuItem
      Tag = 2
      Caption = 'rel. to par - auto wrap left or right'
      OnClick = reltopagewrapleftandright1Click
    end
    object reltoparwrapleftandright1: TMenuItem
      Tag = 3
      Caption = 'rel to par - wrap left and right'
      OnClick = reltopagewrapleftandright1Click
    end
    object reltopagenowrappng1: TMenuItem
      Tag = 4
      Caption = 'rel. to page - no wrappng'
      OnClick = reltopagewrapleftandright1Click
    end
    object reltopagewrapleftandright1: TMenuItem
      Tag = 5
      Caption = 'rel. to page - wrap left and right'
      OnClick = reltopagewrapleftandright1Click
    end
  end
end