Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/rzcomps.exe/LIB32/RZSTREDT.DF_/RZSTREDT.DF/RZSTREDT.txt

Text File | 1996-10-18 | 24KB | 641 lines

object RzStringListEditDlg: TRzStringListEditDlg
  Left = 200
  Top = 102
  Width = 420
  Height = 320
  BorderIcons = [biSystemMenu]
  Caption = 'Raize String List Editor'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  TextHeight = 13
  object TbrMain: TRzToolbar
    Left = 0
    Top = 0
    Width = 412
    ShowDivider = False
    ParentShowHint = False
    TabOrder = 0
    object BtnOpen: TSpeedButton
      Left = 61
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Open File...'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        00006666000000000000066666FFFFFFFFFFFFF6000066688888888888800666
        68888888888888F600006668FB7B7B7B7B80066668F6666666668FF60000668F
        B7B7B7B7B70806668F666666666688F60000668F7B7B7B7B780806668F666666
        6668F8F6000068F7B7B7B7B7B0880668F6666666666888F6000068FFFFFFFFFF
        80780668FFFFFFFFFF8F68F6000068888888888888B8066888888888888868F6
        0000668F7B7B7B7B7B7806668F666666666668F60000668FB7B7B7FFFFF80666
        8F666666FFFFF8F60000668F7B7B7F88888866668F66666F8888886600006668
        FFFFF8666666666668FFFFF86666666600006666888886666666666666888886
        6666666600006666666666666666666666666666666666660000666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnOpenClick
    end
    object BtnSave: TSpeedButton
      Left = 86
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Save File As...'
      Enabled = False
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666666666666666666600006666666666666666666666FFFFFFFFFFFFF6
        00006660000000000000666668888888888888F6000066044074477704406666
        8F668F8F68F668F60000660440744777044066668F668F8F68F668F600006604
        40744777044066668F668FFFF8F668F60000660444777777444066668F666888
        866668F60000660444444444444066668F666666666668F60000660440000000
        044066668F66FFFFFFF668F6000066040FFFFFFFF04066668F668888886F68F6
        000066040FFFFFFFF04066668F68F666668F68F6000066040F888888F0406666
        8F68F666668F68F6000066040FFFFFFFF04066668F68F666668F68F600006607
        0F888888F00066668F68F666668F68F6000066040FFFFFFFF04066668F68F666
        668F68F600006600000000000000666688888888888888660000666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnSaveClick
    end
    object BtnCut: TSpeedButton
      Left = 149
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Cut'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666FF66666666FF660000668448666666844866666886F666666887F6
        0000684664866668466486668F686F66668668F6000068466646666466648666
        8F668F6668F668F600006846664666646664866686F68F6668F6686600006684
        6648668466486666686F8FF668F686660000666844448844448666666688886F
        888866660000666664444444466666666668888888866666000066666648FF84
        666666666666887788F6666600006666668F00F06666666666668777786F6666
        0000666668F77F07066666666668777F7786F666000066668F7708F770666666
        66877788F7786F6600006668F770668F77066666687778668F7786F60000668F
        77066668F77066668777866668F7786F000068F7706666668F770668F7786666
        668F778F000068F70666666668F70668F78666666668F78F000068F066666666
        668F0668F866666666668F8F0000688666666666666886688666666666666886
        0000}
      NumGlyphs = 2
      OnClick = BtnCutClick
    end
    object BtnCopy: TSpeedButton
      Left = 174
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Copy'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666666666FFFFFFFFF600006666660000000000666666666888888888F6
        000066666687777777706666666668F6666668F600006666668FBFBFBF706666
        666668F6666668F600006666668BFBFBFB706666666668F6666668F600006666
        668FBFBFBF7066666FFFF8F6666668F600006000008BFBFBFB706666888888F6
        666668F600006877778FBFBFBF7066668F6668F6666668F6000068FFFF8BFBFB
        FB7066668F6668F6666FF8F6000068FFFF8FBFBF000066668F6668F666888866
        000068FFFF8BFBFB7F8666668F6668F6668F8666000068FFFF8FBFBF78666666
        8F6668FFFF886666000068FFFF888888866666668F66688888866666000068FF
        FFFFFF06666666668F6666FF8F666666000068FFFFF00006666666668F666888
        86666666000068FFFFF7F866666666668F6668F866666666000068FFFFF78666
        666666668FFFF886666666660000688888886666666666668888886666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnCopyClick
    end
    object BtnPaste: TSpeedButton
      Left = 199
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Paste'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666FFFF66666
        66666666666FFF666666666600006FFF000886666666666666888FFF66666666
        00006666668008666666666666668887F66FFF66000066666668F08000066666
        6FFFF8787F8887F60000660000078F00F80066668888868787F7887F00006877
        777778F0070B8668F6666668787F868F000068FFF777888F000F0668F666668F
        8787868F000068FF7F778770708B0668F666668F7878668F000068FFF7778008
        08F88668F666668FFF866686000068FF7F7788888B706668F666668888666866
        000068FFF777787BF8066668F66666687FFF8666000068FF7F77788888666668
        F666666688886666000068FFF777780666666668F66666668F666666000068FF
        FFF77806666666687FFFFFFF8666666600006688888888666666666688888888
        6666666600006668FF7806666666666668FFFF8F666666660000666888888666
        6666666668888886666666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnPasteClick
    end
    object BtnUndo: TSpeedButton
      Left = 224
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Undo'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000666666666666666666666666666666666666000066666666666666666666
        6666666666666666000066666666666666666666666666666666666600006666
        666666666F66666666666666666F66660000666FFFFFF66684F6666666FFFFF6
        6688F666000066844444F666848F66666888886666688F6600006684444F6666
        684F66666888866666668F660000668444F66666684F66666888666666668F66
        00006684484FF6666F4F666668868FF6666F8F660000668486844FFFF4866666
        6866688FFFF88666000066886668844448666666666666688888666600006666
        6666688886666666666666666666666600006666666666666666666666666666
        6666666600006666666666666666666666666666666666660000666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnUndoClick
    end
    object BtnFont: TSpeedButton
      Left = 253
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Change Font...'
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666660000006666666666666666660000006666666666666666660000006666
        6666666666666600000066666666666666666600000060000660006660006600
        0000006006006006006006000000006006006006006666000000600006006006
        0066660000006660060060060060060000006000660000666000660000006666
        6600666666666600000066666600666666666600000066666000666666666600
        0000666666666666666666000000666666666666666666000000666666666666
        666666000000666666666666666666000000}
      OnClick = BtnFontClick
    end
    object BtnIndent: TSpeedButton
      Left = 30
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Indent'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000666666666666666666666666666666666666000066666666668866666666
        66666666886666660000666666666F44866666666666666F6686666600006666
        66666F44486666666666666F6668666600006668888887444486666668888886
        66668666000066F44444444444486666F666666666666866000066F444444444
        44448666F666666666666686000066F44444444444446666F666666666666866
        000066F44444444444466666F666666666668666000066FFFFFFFF4444666666
        FFFFFFFF666866660000666666666F44466666666666666F6686666600006666
        66666F44666666666666666F686666660000666666666FF6666666666666666F
        F666666600006666666666666666666666666666666666660000666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnIndentClick
    end
    object BtnUnindent: TSpeedButton
      Left = 5
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Unindent'
      Enabled = False
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000666666666666666666666666666666666666000066666666886666666666
        666666886666666600006666666448666666666666666F686666666600006666
        66444866666666666666F66866666666000066666444488888888666666F6668
        8888888600006666444444444444866666F66666666666860000666444444444
        444486666F66666666666686000066F44444444444448666F666666666666686
        000066FF4444444444448666FF666666666666860000666FF44447FFFFFF6666
        6FF66666FFFFFF6600006666FF4448666666666666FF66686666666600006666
        6FF4486666666666666FF668666666660000666666FFF666666666666666FFF6
        6666666600006666666666666666666666666666666666660000666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnUnindentClick
    end
    object BtnTabSize: TSpeedButton
      Left = 285
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Set Tab Size'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000000000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777700000073000000000000000700000073737373737373737700000073B7
        B7B7B7B7B7B7B700000073FBFBFBFBFBFBFBF700000073BFBFBFB3BFBFBFB700
        000073FBF3FBF3FBF3FBF700000073B3B3B3B3B3B3B3B7000000733333333333
        3333370000007777777777777774770000007777777777774774770000007777
        7777777744747700000077444444444444447700000077444444444444447700
        0000777777777777447477000000777777777777477477000000777777777777
        777477000000777777777777777777000000}
      OnClick = BtnTabSizeClick
    end
    object BtnSetTabSize: TSpeedButton
      Left = 355
      Top = 6
      Width = 22
      Height = 22
      Hint = 'Accept'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000666666886666666666666666666666666666000066666CC8866666666666
        666FF6666666666600006666C22C88666666666666F66F66666666660000666A
        2222C88666666666686666F666666666000066A222222C88666666668666666F
        66666666000066A222A222C88666666686668666F6666666000066A22C8A222C
        86666666866F68666F666666000066A22C86A22C88666666866F66866F666666
        0000666A2C666A22C8866666686F666866F6666600006666AA6666A22C886666
        66886666866F6666000066666666666A22C88666666666666866F66600006666
        66666666A22C86666666666666866F6600006666666666666A2C866666666666
        66686F66000066666666666666AC66666666666666668F660000666666666666
        6666666666666666666666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      Visible = False
      OnClick = BtnSetTabSizeClick
    end
    object BtnCancelTabSize: TSpeedButton
      Left = 377
      Top = 6
      Width = 22
      Height = 22
      Hint = 'Reject'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666660000666668666666666666666666666666666666
        00006666088666666666666666F6666666666666000066691086666688666666
        686F666666666666000066691088666008866666686F66666FF6666600006669
        11088691108666666866F666866F666600006666911089111066666666866F68
        666F66660000666691119111066666666686668666F666660000666669111110
        66666666666866666F66666600006666669111088666666666668666F6666666
        000066666691111086666666666686666F666666000066666911011088666666
        666866F66F66666600006666691069110886666666686F6866F6666600006666
        91066691108866666686F666866F66660000666691066669110866666686F666
        6866F666000066666966666691066666666866666686F6660000666666666666
        6966666666666666666866660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      Visible = False
      OnClick = BtnSetTabSizeClick
    end
    object BtnPrint: TSpeedButton
      Left = 117
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Print...'
      Enabled = False
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000000000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666666666FFF66666660000666666600066666666666666F888FFF66666
        00006666600788006666666666F8866888FFF666000066600778008800666666
        688668888888FFF60000660778878800880066668F688688888888F600006688
        877788880080666688866688888888F600006887777788888800666886666688
        888888F6000068F7777F888888880668F6666F888888888F000068F77FF77788
        88880668F66FF6FF8888888F000068FFF779977788880668FFF6F8866688888F
        000068F77AA7778807880668F6688666888F888600006688F77788FF07006666
        88F666886686F8660000666688F8FFFFF06666666688F8F666686F6600006666
        6688FFFFFF0666666666886F666686FF0000666666668FFFFFF0066666666686
        F666F88600006666666668FFF8866666666666686FF886660000666666666688
        8666666666666666888666660000666666666666666666666666666666666666
        0000}
      NumGlyphs = 2
      OnClick = BtnPrintClick
    end
    object SpnTabSize: TRzSpinEdit
      Left = 314
      Top = 7
      Width = 37
      Height = 21
      ButtonUpGlyph.Data = {
        12010000424D120100000000000036000000280000000E000000050000000100
        180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C000000000000000000000000000000000000000000000008080808080
        808080808080808080808080808080800000C0C0C00000000000000000000000
        00000000C0C0C0C0C0C0808080808080808080808080808080C0C0C00000C0C0
        C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C080808080808080
        8080C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0808080C0C0C0C0C0C0C0C0C00000}
      ButtonDownGlyph.Data = {
        12010000424D120100000000000036000000280000000E000000050000000100
        180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0808080C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C00000000000000000
        00C0C0C0C0C0C0C0C0C0C0C0C0808080808080808080C0C0C0C0C0C00000C0C0
        C0000000000000000000000000000000C0C0C0C0C0C080808080808080808080
        8080808080C0C0C0000000000000000000000000000000000000000000000080
        80808080808080808080808080808080808080800000}
      Increment = 1.000000000000000000
      Max = 100.000000000000000000
      PageSize = 10.000000000000000000
      ParentColor = False
      TabOrder = 0
      Visible = False
    end
  end
  object PnlButtons: TRzPanel
    Left = 0
    Top = 259
    Width = 412
    Height = 34
    Align = alBottom
    BorderOuter = fsPopup
    FrameSides = [sdTop]
    TabOrder = 3
    object BtnCodeEditor: TButton
      Left = 68
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Code Editor...'
      ModalResult = 6
      TabOrder = 1
      Visible = False
      OnClick = BtnCodeEditorClick
    end
    object RzPanel2: TRzPanel
      Left = 164
      Top = 2
      Width = 247
      Height = 31
      Align = alRight
      BorderOuter = fsNone
      FrameSides = []
      TabOrder = 2
      object BtnOk: TButton
        Left = 0
        Top = 3
        Width = 75
        Height = 25
        Caption = 'OK'
        ModalResult = 1
        TabOrder = 0
        OnClick = BtnOkClick
      end
      object BtnCancel: TButton
        Left = 83
        Top = 3
        Width = 75
        Height = 25
        Cancel = True
        Caption = 'Cancel'
        ModalResult = 2
        TabOrder = 1
      end
      object BtnHelp: TButton
        Left = 166
        Top = 3
        Width = 75
        Height = 25
        Caption = '&Help'
        TabOrder = 2
        OnClick = BtnHelpClick
      end
    end
    object ChkDefault: TCheckBox
      Left = 8
      Top = 8
      Width = 53
      Height = 17
      Hint = 'Save Settings as Defaults'
      Caption = 'Default'
      TabOrder = 0
    end
  end
  object PnlStatusBar: TRzPanel
    Left = 0
    Top = 235
    Width = 412
    Height = 24
    Align = alBottom
    BorderOuter = fsPopup
    FrameSides = [sdTop]
    TabOrder = 2
    object RzStatusPane1: TRzStatusPane
      Left = 1
      Top = 2
      Width = 88
      Height = 21
      Align = alLeft
      Caption = 'Line: '
    end
    object RzStatusPane2: TRzStatusPane
      Left = 89
      Top = 2
      Width = 96
      Height = 21
      Align = alLeft
      Caption = 'Column:'
    end
    object LblCount: TRzStatusPane
      Left = 185
      Top = 2
      Width = 80
      Height = 21
      Align = alLeft
      Caption = '0 Lines'
    end
    object LblLine: TLabel
      Left = 41
      Top = 6
      Width = 37
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '1'
    end
    object LblCol: TLabel
      Left = 137
      Top = 6
      Width = 37
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '1'
    end
    object PbrPrint: TRzProgressBar
      Left = 265
      Top = 2
      Width = 146
      Height = 21
      Align = alClient
      BackColor = clBtnFace
      BorderInner = fsStatus
      BorderOuter = fsNone
      BorderWidth = 2
      InteriorOffset = 0
      PartsComplete = 0
      Percent = 0
      ShowPercent = False
      TotalParts = 0
    end
  end
  object PnlWorkSpace: TRzPanel
    Left = 0
    Top = 32
    Width = 412
    Height = 203
    Align = alClient
    BorderOuter = fsPopup
    BorderWidth = 4
    FrameSides = []
    TabOrder = 1
    object EdtStrings: TMemo
      Left = 5
      Top = 5
      Width = 402
      Height = 193
      Align = alClient
      Lines.Strings = (
        'EdtStrings')
      PopupMenu = MnuEdit
      ScrollBars = ssBoth
      TabOrder = 0
      OnChange = EdtStringsChange
      OnClick = EdtStringsClick
      OnKeyDown = EdtStringsKeyDown
      OnKeyUp = EdtStringsKeyUp
      OnMouseUp = EdtStringsMouseUp
    end
  end
  object DlgOpen: TOpenDialog
    DefaultExt = 'TXT'
    Filter =
      'Text Files (*.txt)|*.TXT|Config Files (*.sys, *.ini)|*.SYS, *.IN' +
      'I|Batch Files (*.bat)|*.BAT|All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist]
    Title = 'Load a String List'
    Left = 7
    Top = 315
  end
  object DlgSave: TSaveDialog
    Filter =
      'Text Files (*.txt)|*.TXT|Config Files (*.sys, *.ini)|*.SYS, *.IN' +
      'I|Batch Files (*.bat)|*.BAT|All Files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofPathMustExist]
    Title = 'Save String List'
    Left = 19
    Top = 315
  end
  object DlgFont: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 27
    Top = 315
  end
  object DlgPrint: TPrintDialog
    Left = 36
    Top = 315
  end
  object MnuEdit: TPopupMenu
    Left = 47
    Top = 315
    object MnuUndo: TMenuItem
      Caption = '&Undo'
      OnClick = BtnUndoClick
    end
    object MnuCut: TMenuItem
      Caption = 'Cu&t'
      OnClick = BtnCutClick
    end
    object MnuCopy: TMenuItem
      Caption = '&Copy'
      OnClick = BtnCopyClick
    end
    object MnuPaste: TMenuItem
      Caption = 'Paste'
      OnClick = BtnPasteClick
    end
    object MnuSep3: TMenuItem
      Caption = '-'
    end
    object MnuPrint: TMenuItem
      Caption = 'Pri&nt...'
      OnClick = BtnPrintClick
    end
    object MnuSep1: TMenuItem
      Caption = '-'
    end
    object MnuOpen: TMenuItem
      Caption = '&Open File...'
      OnClick = BtnOpenClick
    end
    object MnuSave: TMenuItem
      Caption = '&Save As File...'
      OnClick = BtnSaveClick
    end
    object MnuSep2: TMenuItem
      Caption = '-'
    end
    object MnuIndent: TMenuItem
      Caption = '&Indent'
      OnClick = BtnIndentClick
    end
    object MnuUnindent: TMenuItem
      Caption = 'Unin&dent'
      OnClick = BtnUnindentClick
    end
  end
end