PC World 2003 June/PCWorld_2003-06_cd.bin/SOFTWARE/VYZKUSTE/RKEDIT/RKEDIT.EXE/0/RCDATA/TFRMEXTSETTINGS/TFRMEXTSETTINGS.txt

Text File | 2003-04-17 | 23KB | 866 lines

inherited frmExtSettings: TfrmExtSettings
  Left = 383
  Top = 313
  BorderStyle = bsDialog
  Caption = 'Extension settings'
  ClientHeight = 331
  ClientWidth = 534
  Position = poOwnerFormCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 193
    Height = 295
    Align = alLeft
    TabOrder = 0
    object lbLanguages: TListBox
      Left = 1
      Top = 1
      Width = 191
      Height = 293
      Align = alClient
      ItemHeight = 13
      TabOrder = 0
      OnClick = lbLanguagesClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 295
    Width = 534
    Height = 36
    Align = alBottom
    TabOrder = 2
    object bbtnApply: TBitBtn
      Left = 372
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Apply'
      Enabled = False
      TabOrder = 3
      OnClick = bbtnApplyClick
    end
    object bbtnCancel: TBitBtn
      Left = 289
      Top = 5
      Width = 75
      Height = 25
      TabOrder = 2
      Kind = bkCancel
    end
    object bbtnOk: TBitBtn
      Left = 207
      Top = 5
      Width = 75
      Height = 25
      TabOrder = 1
      OnClick = bbtnOkClick
      Kind = bkOK
    end
    object btnRegister: TButton
      Left = 8
      Top = 6
      Width = 153
      Height = 25
      Caption = 'Register selected extensions'
      TabOrder = 0
      OnClick = btnRegisterClick
    end
    object bbtnHelp: TBitBtn
      Left = 454
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Help'
      TabOrder = 4
      OnClick = bbtnHelpClick
      Kind = bkHelp
    end
  end
  object PageControl1: TPageControl
    Left = 193
    Top = 0
    Width = 341
    Height = 295
    ActivePage = TabSheet4
    Align = alClient
    TabIndex = 3
    TabOrder = 1
    object tsColors: TTabSheet
      Caption = 'Colors'
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 47
        Height = 13
        Caption = 'Attributes:'
      end
      object Label3: TLabel
        Left = 160
        Top = 8
        Width = 57
        Height = 13
        Caption = 'Foreground:'
      end
      object Label4: TLabel
        Left = 160
        Top = 72
        Width = 61
        Height = 13
        Caption = 'Background:'
      end
      object lbAttributes: TListBox
        Left = 8
        Top = 24
        Width = 145
        Height = 238
        IntegralHeight = True
        ItemHeight = 13
        TabOrder = 0
        OnClick = lbAttributesClick
      end
      object gbStyle: TGroupBox
        Left = 160
        Top = 136
        Width = 169
        Height = 89
        Caption = 'Style'
        TabOrder = 3
        object cbBold: TCheckBox
          Left = 8
          Top = 16
          Width = 156
          Height = 17
          Caption = 'Bold'
          TabOrder = 0
          OnClick = ccbForeground1Change
        end
        object cbItalic: TCheckBox
          Left = 8
          Top = 40
          Width = 156
          Height = 17
          Caption = 'Italic'
          TabOrder = 1
          OnClick = ccbForeground1Change
        end
        object cbUnderline: TCheckBox
          Left = 8
          Top = 64
          Width = 156
          Height = 17
          Caption = 'Underline'
          TabOrder = 2
          OnClick = ccbForeground1Change
        end
      end
      object cbSmartHighlighting: TCheckBox
        Left = 168
        Top = 240
        Width = 161
        Height = 17
        Caption = 'Smart highligting'
        TabOrder = 4
        OnClick = ccbForeground1Change
      end
      object cbForeground: TColorBox
        Left = 160
        Top = 24
        Width = 169
        Height = 22
        Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames]
        ItemHeight = 16
        TabOrder = 1
        OnChange = ccbForeground1Change
      end
      object cbBackground: TColorBox
        Left = 160
        Top = 88
        Width = 169
        Height = 22
        Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames]
        ItemHeight = 16
        TabOrder = 2
        OnChange = ccbForeground1Change
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Extensions'
      ImageIndex = 1
      object Label1: TLabel
        Left = 8
        Top = 56
        Width = 54
        Height = 13
        Caption = 'Extensions:'
      end
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 54
        Height = 13
        Caption = 'Filter name:'
      end
      object lbExtensions: TListBox
        Left = 8
        Top = 72
        Width = 105
        Height = 89
        ItemHeight = 13
        TabOrder = 1
        OnClick = lbExtensionsClick
      end
      object btnSetAllCurrentToRegister: TButton
        Left = 8
        Top = 168
        Width = 321
        Height = 25
        Caption = 'Set to register all extensions of current language'
        TabOrder = 5
        OnClick = btnSetAllCurrentToRegisterClick
      end
      object edtFilterName: TEdit
        Left = 8
        Top = 24
        Width = 321
        Height = 21
        TabOrder = 0
        OnChange = edtCurrentExtensionChange
      end
      object GroupBox2: TGroupBox
        Left = 152
        Top = 64
        Width = 177
        Height = 97
        TabOrder = 4
        object Label6: TLabel
          Left = 7
          Top = 16
          Width = 85
          Height = 13
          Caption = 'Current extension:'
        end
        object cbRegisterWithMe: TCheckBox
          Left = 8
          Top = 64
          Width = 161
          Height = 17
          Caption = 'Register with me'
          TabOrder = 1
          OnClick = edtCurrentExtensionChange
        end
        object edtCurrentExtension: TEdit
          Left = 8
          Top = 32
          Width = 161
          Height = 21
          TabOrder = 0
          OnChange = edtCurrentExtensionChange
          OnExit = edtCurrentExtensionExit
        end
      end
      object btnSetAllOfAllToRegister: TButton
        Left = 8
        Top = 202
        Width = 321
        Height = 25
        Caption = 'Set to register all extensions of all languages'
        TabOrder = 6
        OnClick = btnSetAllOfAllToRegisterClick
      end
      object bbtnNewExtension: TBitBtn
        Left = 122
        Top = 72
        Width = 21
        Height = 21
        TabOrder = 2
        OnClick = bbtnNewExtensionClick
        Glyph.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
          20002200000000022000220FFFFFFF022000220FFFFFFF022000220FFFFFFF02
          2000220FFFFFFF022000220FFFFFFF022000220FFFFFFF022000220FFFF00002
          2000220FFFF0FF022000220FFFF0F02220002200000002222000222222222222
          2000}
      end
      object bbtnDeleteExtension: TBitBtn
        Left = 122
        Top = 96
        Width = 21
        Height = 21
        TabOrder = 3
        OnClick = bbtnDeleteExtensionClick
        Glyph.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          80008800000000088000890FFFFFFF0980008899FFFFF998800088099FFF9908
          8000880F99F99F088000880FF999FF088000880999F99999800089999FF00999
          80008999FFF0FF998000880FFFF0F08880008800000008888000888888888888
          8000}
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Compile && run'
      ImageIndex = 4
      object Label7: TLabel
        Left = 8
        Top = 8
        Width = 40
        Height = 13
        Caption = 'Compile:'
      end
      object Label8: TLabel
        Left = 8
        Top = 100
        Width = 23
        Height = 13
        Caption = 'Run:'
      end
      object edtCompile: TEdit
        Left = 8
        Top = 24
        Width = 321
        Height = 21
        TabOrder = 0
        OnChange = edtCompileChange
      end
      object edtRun: TEdit
        Left = 8
        Top = 115
        Width = 321
        Height = 21
        TabOrder = 4
        OnChange = edtCompileChange
      end
      object edtOpenAfterCompile: TEdit
        Left = 8
        Top = 72
        Width = 321
        Height = 21
        TabOrder = 3
        OnChange = edtCompileChange
      end
      object cbOpenAfterCompile: TCheckBox
        Left = 8
        Top = 53
        Width = 129
        Height = 17
        Caption = 'Open file after compile:'
        TabOrder = 1
        OnClick = edtCompileChange
      end
      object rgBeforeCompiling: TRadioGroup
        Left = 8
        Top = 184
        Width = 137
        Height = 81
        Caption = 'Before compile or run:'
        ItemIndex = 0
        Items.Strings = (
          'Save all unsaved files'
          'Save current file'
          'Do nothing')
        TabOrder = 6
        OnClick = edtCompileChange
      end
      object rgWorkingDirectory: TRadioGroup
        Left = 152
        Top = 184
        Width = 177
        Height = 81
        Caption = 'Working directory:'
        Columns = 2
        ItemIndex = 2
        Items.Strings = (
          'Source file'
          'Specified:'
          'Program')
        TabOrder = 7
        OnClick = edtCompileChange
      end
      object edtSpecifiedDir: TEdit
        Left = 229
        Top = 233
        Width = 92
        Height = 21
        TabOrder = 8
        Text = 'C:\TEMP'
        OnChange = edtCompileChange
      end
      object cbAutoload: TCheckBox
        Left = 264
        Top = 53
        Width = 65
        Height = 17
        Caption = 'Autoload'
        TabOrder = 2
        OnClick = edtCompileChange
      end
      object edtLogFile: TLabeledEdit
        Left = 8
        Top = 158
        Width = 321
        Height = 21
        EditLabel.Width = 37
        EditLabel.Height = 13
        EditLabel.Caption = 'Log file:'
        LabelPosition = lpAbove
        LabelSpacing = 3
        TabOrder = 5
        OnChange = edtCompileChange
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Commands'
      ImageIndex = 3
      object PageControl2: TPageControl
        Left = 0
        Top = 0
        Width = 333
        Height = 267
        ActivePage = tsCommandsA
        Align = alClient
        TabIndex = 0
        TabOrder = 0
        object tsCommandsA: TTabSheet
          Caption = '1 && 2'
          object Bevel1: TBevel
            Left = 8
            Top = 122
            Width = 313
            Height = 9
            Shape = bsTopLine
          end
          object edtCommandDesc1: TEdit
            Left = 8
            Top = 27
            Width = 209
            Height = 21
            TabOrder = 2
            Text = 'Command 1'
            OnChange = cbUseUserDefined1Click
          end
          object edtCommandDesc2: TEdit
            Left = 8
            Top = 150
            Width = 209
            Height = 21
            TabOrder = 8
            Text = 'Command 2'
            OnChange = cbUseUserDefined1Click
          end
          object cbUseUserDefined1: TCheckBox
            Left = 8
            Top = 8
            Width = 145
            Height = 17
            Caption = 'User defined command 1:'
            TabOrder = 0
            OnClick = cbUseUserDefined1Click
          end
          object cbUseUserDefined2: TCheckBox
            Left = 8
            Top = 131
            Width = 145
            Height = 17
            Caption = 'User defined command 2:'
            TabOrder = 6
            OnClick = cbUseUserDefined1Click
          end
          object cbCommandAction1: TComboBox
            Left = 224
            Top = 27
            Width = 97
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 3
            OnChange = cbUseUserDefined1Click
            Items.Strings = (
              'Open file'
              'Run command')
          end
          object cbCommandAction2: TComboBox
            Left = 224
            Top = 150
            Width = 97
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 9
            OnChange = cbUseUserDefined1Click
            Items.Strings = (
              'Open file'
              'Run command')
          end
          object edtCommand1: TEdit
            Left = 8
            Top = 51
            Width = 313
            Height = 21
            TabOrder = 4
            OnChange = cbUseUserDefined1Click
          end
          object edtCommand2: TEdit
            Left = 8
            Top = 174
            Width = 313
            Height = 21
            TabOrder = 10
            OnChange = cbUseUserDefined1Click
          end
          object edtLogFile1: TLabeledEdit
            Left = 8
            Top = 91
            Width = 313
            Height = 21
            EditLabel.Width = 37
            EditLabel.Height = 13
            EditLabel.Caption = 'Log file:'
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 5
            OnChange = cbUseUserDefined1Click
          end
          object edtLogFile2: TLabeledEdit
            Left = 8
            Top = 214
            Width = 313
            Height = 21
            EditLabel.Width = 37
            EditLabel.Height = 13
            EditLabel.Caption = 'Log file:'
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 11
            OnChange = cbUseUserDefined1Click
          end
          object cbWait2: TCheckBox
            Left = 243
            Top = 131
            Width = 78
            Height = 17
            Caption = 'Wait for end'
            TabOrder = 7
            OnClick = cbUseUserDefined1Click
          end
          object cbWait1: TCheckBox
            Left = 243
            Top = 8
            Width = 78
            Height = 17
            Caption = 'Wait for end'
            TabOrder = 1
            OnClick = cbUseUserDefined1Click
          end
        end
        object tsCommandsB: TTabSheet
          Caption = '3 && 4'
          ImageIndex = 1
          object Bevel3: TBevel
            Left = 8
            Top = 122
            Width = 313
            Height = 9
            Shape = bsTopLine
          end
          object edtCommandDesc4: TEdit
            Left = 8
            Top = 150
            Width = 209
            Height = 21
            TabOrder = 8
            Text = 'Command 4'
            OnChange = cbUseUserDefined1Click
          end
          object cbUseUserDefined4: TCheckBox
            Left = 8
            Top = 131
            Width = 145
            Height = 17
            Caption = 'User defined command 4:'
            TabOrder = 6
            OnClick = cbUseUserDefined1Click
          end
          object cbCommandAction4: TComboBox
            Left = 224
            Top = 150
            Width = 97
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 9
            OnChange = cbUseUserDefined1Click
            Items.Strings = (
              'Open file'
              'Run command')
          end
          object edtCommand4: TEdit
            Left = 8
            Top = 174
            Width = 313
            Height = 21
            TabOrder = 10
            OnChange = cbUseUserDefined1Click
          end
          object edtCommandDesc3: TEdit
            Left = 8
            Top = 27
            Width = 209
            Height = 21
            TabOrder = 2
            Text = 'Command 3'
            OnChange = cbUseUserDefined1Click
          end
          object cbUseUserDefined3: TCheckBox
            Left = 8
            Top = 8
            Width = 145
            Height = 17
            Caption = 'User defined command 3:'
            TabOrder = 0
            OnClick = cbUseUserDefined1Click
          end
          object cbCommandAction3: TComboBox
            Left = 224
            Top = 27
            Width = 97
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 3
            OnChange = cbUseUserDefined1Click
            Items.Strings = (
              'Open file'
              'Run command')
          end
          object edtCommand3: TEdit
            Left = 8
            Top = 51
            Width = 313
            Height = 21
            TabOrder = 4
            OnChange = cbUseUserDefined1Click
          end
          object edtLogFile3: TLabeledEdit
            Left = 8
            Top = 91
            Width = 313
            Height = 21
            EditLabel.Width = 37
            EditLabel.Height = 13
            EditLabel.Caption = 'Log file:'
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 5
            OnChange = cbUseUserDefined1Click
          end
          object edtLogFile4: TLabeledEdit
            Left = 8
            Top = 214
            Width = 313
            Height = 21
            EditLabel.Width = 37
            EditLabel.Height = 13
            EditLabel.Caption = 'Log file:'
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 11
            OnChange = cbUseUserDefined1Click
          end
          object cbWait3: TCheckBox
            Left = 243
            Top = 8
            Width = 78
            Height = 17
            Caption = 'Wait for end'
            TabOrder = 1
            OnClick = cbUseUserDefined1Click
          end
          object cbWait4: TCheckBox
            Left = 243
            Top = 131
            Width = 78
            Height = 17
            Caption = 'Wait for end'
            TabOrder = 7
            OnClick = cbUseUserDefined1Click
          end
        end
        object tsCommandsC: TTabSheet
          Caption = '5 && 6'
          ImageIndex = 2
          object edtCommandDesc5: TEdit
            Left = 8
            Top = 27
            Width = 209
            Height = 21
            TabOrder = 2
            Text = 'Command 5'
            OnChange = cbUseUserDefined1Click
          end
          object edtCommandDesc6: TEdit
            Left = 8
            Top = 150
            Width = 209
            Height = 21
            TabOrder = 8
            Text = 'Command 6'
            OnChange = cbUseUserDefined1Click
          end
          object cbUseUserDefined5: TCheckBox
            Left = 8
            Top = 8
            Width = 145
            Height = 17
            Caption = 'User defined command 5:'
            TabOrder = 0
            OnClick = cbUseUserDefined1Click
          end
          object cbUseUserDefined6: TCheckBox
            Left = 8
            Top = 131
            Width = 145
            Height = 17
            Caption = 'User defined command 6:'
            TabOrder = 6
            OnClick = cbUseUserDefined1Click
          end
          object cbCommandAction5: TComboBox
            Left = 224
            Top = 27
            Width = 97
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 3
            OnChange = cbUseUserDefined1Click
            Items.Strings = (
              'Open file'
              'Run command')
          end
          object cbCommandAction6: TComboBox
            Left = 224
            Top = 150
            Width = 97
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 9
            OnChange = cbUseUserDefined1Click
            Items.Strings = (
              'Open file'
              'Run command')
          end
          object edtCommand5: TEdit
            Left = 8
            Top = 51
            Width = 313
            Height = 21
            TabOrder = 4
            OnChange = cbUseUserDefined1Click
          end
          object edtCommand6: TEdit
            Left = 8
            Top = 174
            Width = 313
            Height = 21
            TabOrder = 10
            OnChange = cbUseUserDefined1Click
          end
          object edtLogFile5: TLabeledEdit
            Left = 8
            Top = 91
            Width = 313
            Height = 21
            EditLabel.Width = 37
            EditLabel.Height = 13
            EditLabel.Caption = 'Log file:'
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 5
            OnChange = cbUseUserDefined1Click
          end
          object edtLogFile6: TLabeledEdit
            Left = 8
            Top = 214
            Width = 313
            Height = 21
            EditLabel.Width = 37
            EditLabel.Height = 13
            EditLabel.Caption = 'Log file:'
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 11
            OnChange = cbUseUserDefined1Click
          end
          object cbWait6: TCheckBox
            Left = 243
            Top = 131
            Width = 78
            Height = 17
            Caption = 'Wait for end'
            TabOrder = 7
            OnClick = cbUseUserDefined1Click
          end
          object cbWait5: TCheckBox
            Left = 243
            Top = 8
            Width = 78
            Height = 17
            Caption = 'Wait for end'
            TabOrder = 1
            OnClick = cbUseUserDefined1Click
          end
        end
      end
    end
    object tsExtended: TTabSheet
      Caption = 'Extended'
      ImageIndex = 2
      object pcExtended: TPageControl
        Left = 0
        Top = 0
        Width = 333
        Height = 267
        ActivePage = tsSQL
        Align = alClient
        Style = tsButtons
        TabOrder = 0
        object tsSQL: TTabSheet
          Caption = 'tsSQL'
          TabVisible = False
          object rgSQLDialect: TRadioGroup
            Left = 8
            Top = 4
            Width = 105
            Height = 173
            Caption = 'SQL Dialect'
            ItemIndex = 0
            Items.Strings = (
              'Standard'
              'Interbase 6'
              'MS SQL 7'
              'MySQL'
              'Oracle'
              'Sybase'
              'Ingres'
              'MS SQL 2000')
            TabOrder = 0
            OnClick = rgSQLDialectClick
          end
        end
      end
    end
  end
end