PC World Komputer 1997 May/Pcwk0597.iso/delphi/jwrite.lzh/EXAMPLE/MAIN.DFM/MAIN.txt

Text File | 1996-04-30 | 20KB | 490 lines

object MainForm: TMainForm
  Left = 248
  Top = 141
  Width = 435
  Height = 300
  ActiveControl = StatusLine
  Caption = 'J-Write Demonstration'
  Color = clBackground
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poDefault
  WindowMenu = Window1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 228
    Width = 427
    Height = 26
    Align = alBottom
    BorderWidth = 1
    TabOrder = 0
    object StatusLine: TPanel
      Left = 2
      Top = 2
      Width = 308
      Height = 22
      Align = alClient
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      BorderWidth = 1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object StatusPanel: TPanel
        Left = 4
        Top = 3
        Width = 121
        Height = 16
        BevelInner = bvLowered
        BevelOuter = bvLowered
        TabOrder = 0
      end
      object InsertPanel: TPanel
        Left = 237
        Top = 3
        Width = 62
        Height = 16
        BevelInner = bvLowered
        BevelOuter = bvLowered
        TabOrder = 1
      end
      object LineCounter: TPanel
        Left = 127
        Top = 3
        Width = 106
        Height = 16
        BevelInner = bvLowered
        BevelOuter = bvLowered
        TabOrder = 2
      end
    end
    object ModifiedPanel: TPanel
      Left = 310
      Top = 2
      Width = 115
      Height = 22
      Align = alRight
      BevelOuter = bvLowered
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object ProgressMeter1: TProgressMeter
        Left = 1
        Top = 1
        Width = 113
        Height = 20
        Align = alClient
        Color = clAqua
        ParentColor = False
        Visible = False
      end
    end
  end
  object SpeedPanel: TPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 30
    Align = alTop
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object OpenBtn: TSpeedButton
      Left = 7
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Open|'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
        7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
        3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
        B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
        338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
        338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
        FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
        8888888333333330000033333333333333388888333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = FileOpenItemClick
    end
    object SaveBtn: TSpeedButton
      Left = 31
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Save|'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
        333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
        CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
        FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
        CCCC033333388888888888888F333330C6000000006C03333338888888888888
        8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
        333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
        C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
        FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
        0000833333388888888888888333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = FileSaveItemClick
    end
    object CutBtn: TSpeedButton
      Left = 100
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Cut|'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333FFFF333333FF
        FF33333844833333384483333338888FF33338888FF333843348333384334833
        3388F388F333883388F3338433343333433348333388F338F3338F3388F33384
        33343333433348333388FF38FF338F3388333338433483384334833333388FF8
        8FF88FF883333333844448844448333333338888888888883333333333444444
        4433333333333388888888333333333333346FF6433333333333333883F88F33
        333333333330F00F0333333333333338388383F333333333330FFFF0F0333333
        3333338333F8383F3333333330FFF00FFF033333333338333883F383F3333333
        0FFF0330FFF033333333833383383F383F333330FFF033330FFF033333383338
        333383F383F3330FFF03333330FFF033338F33833333383F38F3330FF0333333
        330FF033338F383333333383F8F3330F033333333330F033338F833333333338
        38F3330033333333333300333388333333333333883333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = CutItemClick
    end
    object CopyBtn: TSpeedButton
      Left = 124
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Copy|'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
        8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
        33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
        3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
        F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
        888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
        8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
        338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
        777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
        33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
        33333333338FFFFFF88333333333330000000033333333333388888888333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = CopyItemClick
    end
    object PasteBtn: TSpeedButton
      Left = 148
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Paste|'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333FFFFFFFFF333333333300000000033333333333888888
        888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03
        33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7
        F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333
        38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C
        4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333
        8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333
        38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7
        F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF
        FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400
        33333333338838888888333333333333ECCCC433333333333333388888333333
        333333333EEEE333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      OnClick = PasteItemClick
    end
    object ExitBtn: TSpeedButton
      Left = 180
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Exit|'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
        777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
        33888888888888877F7F788888888888888F333FF88844444400888FFF444444
        88888888888333888883333334D5007FFF433333333338F888F3338F33333333
        345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
        78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
        FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
        3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
        3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
        345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
        F8FFFF8F33333333344444444443333333333888888888833333333333333333
        3333333333333333FFFFFF333333333333300000033333333333333888888F33
        333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
        33333338888883333333}
      NumGlyphs = 2
      OnClick = FileExitItemClick
    end
    object PrintBtn: TSpeedButton
      Left = 54
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Print'
      Enabled = False
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
      OnClick = PrintBtnClick
    end
    object WrapNoneBtn: TSpeedButton
      Left = 216
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Wrap on Line Breaks|'
      GroupIndex = 1
      Enabled = False
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFF0F0FFFFFFFFFFFFF0F0FFFFFFFFFFFFF0F0FF
        FFFFFFFFFFF0F0FFFFFFFFFFFFF0F0FFFFFFFFFFFFF0F0FFFFFFFFFFFFF0F0FF
        FFFFFFFFFF00F0FFFFFFFFFFF000F0FFFFFFFFFFF000F0FFFFFFFFFFF000F0FF
        FFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
        0000000000000000000000000000000000000000}
      OnClick = WrapNoneBtnClick
    end
    object WrapScreenBtn: TSpeedButton
      Left = 240
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Wrap on Window Boundary|'
      GroupIndex = 1
      Enabled = False
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FFFFFFFFFFF
        FFF33F000000000000F33F0FFFFFFFFFF0F33F0FFFFFFFFFF0F33F0FFFFFFFFF
        F0F33F0FFFFFFFFFF0F33F0FFFFFFFFFF0F33F0FFFFFFFFFF0F33F0FFFFFFFFF
        F0F33F0FFFFFFFFFF0F33F0FFFFFFFFFF0F33F000000000000F33F7CCCCCCCCC
        C7F33F7CCCCCCCCCC7F33FFFFFFFFFFFFFF33333333333333333000000000000
        0000000000000000000000000000000000000000}
      OnClick = WrapScreenBtnClick
    end
    object WrapPrinterBtn: TSpeedButton
      Left = 264
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Wrap on Printer Page Width|'
      GroupIndex = 1
      Enabled = False
      Glyph.Data = {
        50050000424D5005000000000000360400002800000010000000100000000100
        0800000000000001000000000000000000000000000000000000000000004000
        000080000000FF000000002000004020000080200000FF200000004000004040
        000080400000FF400000006000004060000080600000FF600000008000004080
        000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0
        000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000
        200080002000FF002000002020004020200080202000FF202000004020004040
        200080402000FF402000006020004060200080602000FF602000008020004080
        200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0
        200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000
        400080004000FF004000002040004020400080204000FF204000004040004040
        400080404000FF404000006040004060400080604000FF604000008040004080
        400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
        400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
        600080006000FF006000002060004020600080206000FF206000004060004040
        600080406000FF406000006060004060600080606000FF606000008060004080
        600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
        600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
        800080008000FF008000002080004020800080208000FF208000004080004040
        800080408000FF408000006080004060800080608000FF608000008080004080
        800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
        800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
        A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
        A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
        A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
        A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
        C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
        C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
        C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
        C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
        FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
        FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
        FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
        FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF006C0000000000
        0000000000000000006C6C00FFFFFFFFFFFFFFFFFFFFFFFF006C6C00FFFFFFFF
        FFFFFFFFFFFFFFFF006C6C00FFFFFFFFFFFFFFFFFFFFFFFF006C6C00FFFFFFFF
        FFFFFFFFFFFFFFFF006C6C00FFFFFFFFFFFFFFFFFFFFFFFF006C6C00FFFFFFFF
        FFFFFFFFFFFFFFFF006C6C00FFFFFFFFFFFFFFFFFFFFFFFF006C6C00FFFFFFFF
        FFFFFFFFFFFFFFFF006C6C00FFFFFFFFFFFFFFFFFFFFFFFF006C6C00FFFFFFFF
        FFFFFFFFFFFFFFFF006C6C00FFFFFFFFFFFFFFFFFFFFFFFF006C6C00FFFFFFFF
        FFFFFFFFFFFF0000006C6C00FFFFFFFFFFFFFFFFFFFF00B66D6C6C0000000000
        000000000000006D6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C000000000000
        0000000000000000000000000000000000000000}
      OnClick = WrapPrinterBtnClick
    end
    object WrapAbsBtn: TSpeedButton
      Left = 287
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Wrap after n characters|'
      GroupIndex = 1
      Enabled = False
      Glyph.Data = {
        10010000424D1001000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF07FFF808
        FFFFFFFF88FFF0F87FFFFFFF88FFF07F8FFFFFFF707FF88FFFFFFFFFF08FF88F
        FFFFFFFFF8F8770FFFFFFFFF80FF808FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
        0000000000000000000000000000000000000000}
      OnClick = WrapAbsBtnClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 36
    Top = 196
    object File1: TMenuItem
      Caption = '&File'
      Hint = 'File related commands'
      object FileNewItem: TMenuItem
        Caption = '&New'
        Hint = 'Create a new file'
        OnClick = FileNewItemClick
      end
      object FileOpenItem: TMenuItem
        Caption = '&Open'
        Hint = 'Open an existing file'
        OnClick = FileOpenItemClick
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 9
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print Setu&p'
        GroupIndex = 9
        OnClick = PrintSetup1Click
      end
      object N2: TMenuItem
        Caption = '-'
        GroupIndex = 9
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        GroupIndex = 9
        Hint = 'Exit the application'
        OnClick = FileExitItemClick
      end
    end
    object Window1: TMenuItem
      Caption = '&Window'
      GroupIndex = 80
      Hint = 'Window related commands such as Tile and Cascade'
      object WindowCascadeItem: TMenuItem
        Caption = '&Cascade'
        Hint = 'Arrange windows to overlap'
        OnClick = WindowCascadeItemClick
      end
      object WindowTileItem: TMenuItem
        Caption = '&Tile'
        Hint = 'Arrange windows without overlap'
        OnClick = WindowTileItemClick
      end
      object WindowArrangeItem: TMenuItem
        Caption = '&Arrange Icons'
        Hint = 'Arrange window icons at bottom of main window'
        OnClick = WindowArrangeItemClick
      end
      object WindowMinimizeItem: TMenuItem
        Caption = '&Minimize All'
        Hint = 'Minimize all windows'
        OnClick = WindowMinimizeItemClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      GroupIndex = 90
      Hint = 'Help topics'
      object HelpAboutItem: TMenuItem
        Caption = '&About'
        OnClick = HelpAboutItemClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'All files (*.*)|*.*|Text Files (*.txt)|*.txt'
    FilterIndex = 2
    Options = [ofHideReadOnly, ofFileMustExist]
    Left = 4
    Top = 196
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 73
    Top = 197
  end
end