PIR/PIRTableForm.dfm - master - YakuninAV/Convertors

PIR/PIRTableForm.dfm
523 строки17 KB
YakuninAV
begin with gitflick
31 июл 2026, 15:21
31 июл 2026, 15:211dc0fc6
object formPIRTable: TformPIRTable
  Left = 686
  Top = 231
  Caption = 'formPIRTable'
  ClientHeight = 703
  ClientWidth = 946
  Color = clBtnFace
  DragKind = dkDock
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 185
    Width = 946
    Height = 3
    Cursor = crVSplit
    Align = alTop
    ExplicitWidth = 346
  end
  object panTop: TPanel
    Left = 0
    Top = 0
    Width = 946
    Height = 65
    Align = alTop
    Caption = 'panTop'
    TabOrder = 0
    DesignSize = (
      946
      65)
    object lRows: TLabel
      Left = 7
      Top = 46
      Width = 11
      Height = 13
      Caption = 'R:'
    end
    object lCols: TLabel
      Left = 64
      Top = 46
      Width = 11
      Height = 13
      Caption = 'C:'
    end
    object Label1: TLabel
      Left = 7
      Top = 3
      Width = 11
      Height = 13
      Caption = 'ID'
    end
    object lName: TLabel
      Left = 64
      Top = 3
      Width = 27
      Height = 13
      Caption = 'Name'
    end
    object btnAddParam: TSpeedButton
      Left = 430
      Top = 42
      Width = 23
      Height = 22
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1072#1088#1072#1084#1077#1090#1088
      Caption = '+'
      ParentShowHint = False
      ShowHint = True
    end
    object edtTabID: TEdit
      Left = 7
      Top = 20
      Width = 49
      Height = 21
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'edtTabID'
    end
    object edtTabName: TEdit
      Left = 64
      Top = 20
      Width = 874
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'edtTabName'
    end
    object eRows: TEdit
      Left = 19
      Top = 43
      Width = 34
      Height = 21
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 2
      Text = 'eRows'
    end
    object eCols: TEdit
      Left = 76
      Top = 43
      Width = 34
      Height = 21
      Hint = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1082#1086#1083#1086#1085#1086#1082' '#1074' '#1090#1072#1073#1083#1080#1094#1077
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 3
      Text = 'eCols'
    end
    object eHeadSize: TEdit
      Left = 164
      Top = 43
      Width = 34
      Height = 21
      TabOrder = 4
      Text = 'eHeadSize'
    end
  end
  object vstTable: TVirtualStringTree
    Left = 0
    Top = 188
    Width = 946
    Height = 515
    Align = alClient
    Header.AutoSizeIndex = 0
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoHeightResize, hoHeightDblClickResize]
    PopupMenu = popmTable
    ScrollBarOptions.AlwaysVisible = True
    TabOrder = 1
    TextMargin = 2
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toVariableNodeHeight, toNodeHeightResize, toNodeHeightDblClickResize]
    TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines]
    TreeOptions.SelectionOptions = [toFullRowSelect, toAlwaysSelectNode]
    OnBeforeCellPaint = vstTableBeforeCellPaint
    OnColumnWidthDblClickResize = vstTableColumnWidthDblClickResize
    OnGetText = vstTableGetText
    Columns = <>
  end
  object pgCtlTableConfig: TPageControl
    Left = 0
    Top = 65
    Width = 946
    Height = 120
    ActivePage = tsComon
    Align = alTop
    TabOrder = 2
    object tsComon: TTabSheet
      Caption = 'tsComon'
      object eColLeft: TLabeledEdit
        Left = 499
        Top = 34
        Width = 28
        Height = 21
        EditLabel.Width = 7
        EditLabel.Height = 13
        EditLabel.Caption = 'C'
        LabelPosition = lpLeft
        TabOrder = 8
        Text = '0'
      end
      object eRowTop: TLabeledEdit
        Left = 499
        Top = 57
        Width = 28
        Height = 21
        EditLabel.Width = 7
        EditLabel.Height = 13
        EditLabel.Caption = 'R'
        LabelPosition = lpLeft
        TabOrder = 9
        Text = '0'
      end
      object udColLeft: TUpDown
        Left = 527
        Top = 34
        Width = 16
        Height = 21
        Associate = eColLeft
        TabOrder = 10
      end
      object udRowTop: TUpDown
        Left = 527
        Top = 57
        Width = 16
        Height = 21
        Associate = eRowTop
        TabOrder = 11
      end
      object eColRight: TLabeledEdit
        Left = 566
        Top = 34
        Width = 28
        Height = 21
        EditLabel.Width = 7
        EditLabel.Height = 13
        EditLabel.Caption = 'C'
        LabelPosition = lpLeft
        TabOrder = 12
        Text = '0'
      end
      object udColRight: TUpDown
        Left = 594
        Top = 34
        Width = 16
        Height = 21
        Associate = eColRight
        TabOrder = 13
      end
      object eRowBottom: TLabeledEdit
        Left = 566
        Top = 57
        Width = 28
        Height = 21
        EditLabel.Width = 7
        EditLabel.Height = 13
        EditLabel.Caption = 'R'
        LabelPosition = lpLeft
        TabOrder = 14
        Text = '0'
      end
      object udRowBottom: TUpDown
        Left = 594
        Top = 57
        Width = 16
        Height = 21
        Associate = eRowBottom
        TabOrder = 15
      end
      object cbxPriceKind: TComboBox
        Left = 160
        Top = 6
        Width = 98
        Height = 21
        Hint = 
          #1060#1091#1085#1082#1094#1080#1103' '#1086#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1089#1090#1086#1080#1084#1086#1089#1090#1080' '#1088#1072#1073#1086#1090'|'#1057#1090#1086#1080#1084#1086#1089#1090#1100' '#1088#1072#1073#1086#1090' '#1086#1087#1080#1089#1072#1085#1085#1099#1093' '#1074' ' +
          #1087#1086#1079#1080#1094#1080#1080' '#1074#1099#1095#1080#1089#1083#1103#1077#1090#1089#1103' '#1087#1086' '#1092#1086#1088#1084#1091#1083#1077':'#13#10#1062' = a + X*b,'#13#10#1075#1076#1077#13#10'X  - '#1086#1073#1098#1105#1084' '#1088 +
          #1072#1073#1086#1090#13#10'a  - '#1087#1086#1089#1090#1086#1103#1085#1085#1072#1103' '#1074#1077#1083#1080#1095#1080#1085#1072' '#1089#1090#1086#1080#1084#1086#1089#1090#1080' '#13#10'b  - '#1082#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090' '#1087#1088#1080' ' +
          #1086#1073#1098#1105#1084#1077#13#10#1042' '#1089#1083#1091#1095#1072#1077', '#1077#1089#1083#1080' '#1074' '#1090#1072#1073#1083#1080#1094#1077' '#1076#1083#1103' '#1086#1087#1080#1089#1072#1085#1080#1103' '#1094#1077#1085#1099' '#1080#1089#1088#1086#1083#1100#1079#1091#1102#1090#1089#1103' ' +
          #1082#1072#1082' '#1076#1074#1077','#13#10#1090#1072#1082' '#1080' '#1086#1076#1085#1072' '#1082#1086#1083#1086#1085#1082#1072', '#1090#1086' '#1089#1084#1099#1089#1083' '#1082#1086#1083#1086#1085#1082#1080' '#1084#1086#1078#1077#1090' '#1073#1099#1090#1100' '#1086#1087#1088#1077#1076#1077 +
          #1083#1105#1085' '#1076#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086
        Style = csDropDownList
        ItemIndex = 2
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        Text = #1062#1077#1085#1072'= a+bx|b'
        TextHint = 
          #1057#1090#1086#1080#1084#1086#1089#1090#1100' '#1088#1072#1073#1086#1090' '#1086#1087#1080#1089#1072#1085#1085#1099#1093' '#1074' '#1087#1086#1079#1080#1094#1080#1080' '#1074#1099#1095#1080#1089#1083#1103#1077#1090#1089#1103' '#1087#1086' '#1092#1086#1088#1084#1091#1083#1077':'#13#10#1062' =' +
          ' a + X*b,'#13#10#1075#1076#1077#13#10'X  - '#1086#1073#1098#1105#1084' '#1088#1072#1073#1086#1090#13#10'a  - '#1087#1086#1089#1090#1086#1103#1085#1085#1072#1103' '#1074#1077#1083#1080#1095#1080#1085#1072' '#1089#1090#1086#1080#1084 +
          #1086#1089#1090#1080' '#13#10'b  - '#1082#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090' '#1087#1088#1080' '#1086#1073#1098#1105#1084#1077#13#10#1042' '#1089#1083#1091#1095#1072#1077', '#1077#1089#1083#1080' '#1074' '#1090#1072#1073#1083#1080#1094#1077' '#1076#1083#1103 +
          ' '#1086#1087#1080#1089#1072#1085#1080#1103' '#1094#1077#1085#1099' '#1080#1089#1088#1086#1083#1100#1079#1091#1102#1090#1089#1103' '#1082#1072#1082' '#1076#1074#1077','#13#10#1090#1072#1082' '#1080' '#1086#1076#1085#1072' '#1082#1086#1083#1086#1085#1082#1072', '#1090#1086' '#1089#1084#1099 +
          #1089#1083' '#1082#1086#1083#1086#1085#1082#1080' '#1084#1086#1078#1077#1090' '#1073#1099#1090#1100' '#1086#1087#1088#1077#1076#1077#1083#1105#1085' '#1076#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086
        Items.Strings = (
          #1062#1077#1085#1072'= a'
          #1062#1077#1085#1072'= bx'
          #1062#1077#1085#1072'= a+bx|b'
          #1062#1077#1085#1072'= a+bx|a')
      end
      object eFrameTLCell: TLabeledEdit
        Left = 328
        Top = 19
        Width = 121
        Height = 21
        Hint = #1042#1077#1088#1093#1085#1103#1103'-'#1083#1077#1074#1072#1103' '#1103#1095#1077#1081#1082#1072' '#1090#1072#1073#1083#1080#1094#1099' '#1086#1087#1088#1077#1076#1077#1083#1103#1102#1097#1072#1103' '#1086#1073#1083#1072#1089#1090#1100' '#1089' '#1094#1077#1085#1072#1084#1080
        EditLabel.Width = 73
        EditLabel.Height = 13
        EditLabel.Caption = #1042#1077#1088#1093#1085#1103#1103#1051#1077#1074#1072#1103
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
      end
      object chkRowID: TCheckBox
        Left = 7
        Top = 71
        Width = 129
        Height = 17
        Hint = #1053#1086#1084#1077#1088' '#1089#1090#1088#1086#1082#1080' '#1074' '#1087#1077#1088#1074#1086#1081' '#1082#1086#1083#1086#1085#1082#1077
        Caption = 'ID '#1074' '#1087#1077#1088#1074#1086#1081' '#1082#1086#1083#1086#1085#1082#1077
        Checked = True
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 3
      end
      object rbDummy: TRadioButton
        Left = 7
        Top = 42
        Width = 70
        Height = 17
        Caption = #1044#1088#1091#1075#1086#1077
        Checked = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        TabStop = True
      end
      object rbQuotationsCont: TRadioButton
        Left = 7
        Top = 25
        Width = 96
        Height = 14
        Hint = #1058#1072#1073#1083#1080#1094#1072' '#1103#1074#1083#1103#1077#1090#1089#1103' '#1087#1088#1086#1076#1086#1083#1078#1077#1085#1080#1077#1084' '#1087#1088#1077#1076#1099#1076#1091#1097#1077#1081
        Caption = #1055#1088#1086#1076#1086#1083#1078#1077#1085#1080#1077
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object rbQuotationsTable: TRadioButton
        Left = 7
        Top = 4
        Width = 69
        Height = 17
        Hint = #1058#1072#1073#1083#1080#1094#1072' '#1089#1086#1076#1077#1088#1078#1080#1090' '#1086#1087#1080#1089#1072#1085#1080#1077' '#1088#1072#1089#1094#1077#1085#1086#1082
        Caption = #1056#1072#1089#1094#1077#1085#1082#1080
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object cbxPriceScale: TComboBox
        Left = 160
        Top = 41
        Width = 98
        Height = 21
        Hint = #1045#1076#1080#1085#1080#1094#1072' '#1080#1079#1084#1077#1088#1077#1085#1080#1103' '#1089#1090#1086#1080#1084#1086#1089#1090#1080' '#1080#1089#1087#1086#1083#1100#1079#1091#1077#1084#1072#1103' '#1074'  '#1090#1072#1073#1083#1080#1094#1077
        Style = csDropDownList
        ItemIndex = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        Text = #1090#1099#1089'.'#1088#1091#1073'.'
        Items.Strings = (
          #1088#1091#1073'.'
          #1090#1099#1089'.'#1088#1091#1073'.'
          #1084#1083#1085'.'#1088#1091#1073'.')
      end
      object eFrameBRCell: TLabeledEdit
        Left = 328
        Top = 59
        Width = 121
        Height = 21
        Hint = #1053#1080#1078#1085#1103#1103'-'#1087#1088#1072#1074#1072#1103' '#1103#1095#1077#1081#1082#1072' '#1090#1072#1073#1083#1080#1094#1099' '#1086#1087#1088#1077#1076#1077#1083#1103#1102#1097#1072#1103' '#1086#1073#1083#1072#1089#1090#1100' '#1089' '#1094#1077#1085#1072#1084#1080
        EditLabel.Width = 76
        EditLabel.Height = 13
        EditLabel.Caption = #1053#1080#1078#1085#1103#1103#1055#1088#1072#1074#1072#1103
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
      end
    end
    object tsName: TTabSheet
      Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      ImageIndex = 1
      DesignSize = (
        938
        92)
      object eQuotationNamePrefix: TLabeledEdit
        Left = 53
        Top = 0
        Width = 780
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        EditLabel.Width = 44
        EditLabel.Height = 13
        EditLabel.Caption = #1055#1088#1077#1092#1080#1082#1089
        LabelPosition = lpLeft
        TabOrder = 0
      end
      object eQuotationName: TLabeledEdit
        Left = 53
        Top = 23
        Width = 780
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        EditLabel.Width = 48
        EditLabel.Height = 13
        EditLabel.Caption = #1053#1072#1079#1074#1072#1085#1080#1077
        LabelPosition = lpLeft
        TabOrder = 1
      end
      object eQuotationNameSuffix: TLabeledEdit
        Left = 53
        Top = 46
        Width = 780
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        EditLabel.Width = 46
        EditLabel.Height = 13
        EditLabel.Caption = #1057#1091#1092#1092#1080#1082#1089
        LabelPosition = lpLeft
        TabOrder = 2
      end
      object chkAddTableName: TCheckBox
        Left = 8
        Top = 72
        Width = 177
        Height = 17
        Caption = #1044#1086#1073#1072#1074#1083#1103#1090#1100' '#1085#1072#1079#1074#1072#1085#1080#1077' '#1090#1072#1073#1083#1080#1094#1099
        TabOrder = 3
      end
      object cbxPrefixKind: TComboBox
        Left = 850
        Top = 0
        Width = 81
        Height = 21
        Style = csDropDownList
        Anchors = [akTop, akRight]
        ItemIndex = 0
        TabOrder = 4
        Text = #1055#1091#1089#1090#1086
        Items.Strings = (
          #1055#1091#1089#1090#1086
          #1040#1076#1088#1077#1089
          #1058#1077#1082#1089#1090
          #1057#1090#1088#1086#1082#1072)
      end
      object cbxNameKind: TComboBox
        Left = 850
        Top = 23
        Width = 81
        Height = 21
        Style = csDropDownList
        Anchors = [akTop, akRight]
        ItemIndex = 1
        TabOrder = 5
        Text = #1040#1076#1088#1077#1089
        Items.Strings = (
          #1055#1091#1089#1090#1086
          #1040#1076#1088#1077#1089
          #1058#1077#1082#1089#1090
          #1057#1090#1088#1086#1082#1072)
      end
      object cbxSuffixKind: TComboBox
        Left = 850
        Top = 46
        Width = 81
        Height = 21
        Style = csDropDownList
        Anchors = [akTop, akRight]
        ItemIndex = 0
        TabOrder = 6
        Text = #1055#1091#1089#1090#1086
        Items.Strings = (
          #1055#1091#1089#1090#1086
          #1040#1076#1088#1077#1089
          #1058#1077#1082#1089#1090
          #1057#1090#1088#1086#1082#1072)
      end
    end
    object tsPriceUnit: TTabSheet
      Caption = #1045#1076'.'#1080#1079#1084#1077#1088#1077#1085#1080#1103
      ImageIndex = 2
      object cbxQuotationUnitType: TComboBox
        Left = 15
        Top = 3
        Width = 113
        Height = 21
        Style = csDropDownList
        TabOrder = 0
        Items.Strings = (
          #1050#1086#1085#1089#1090#1072#1085#1090#1072
          #1071#1095#1077#1081#1082#1072
          #1042' '#1090#1077#1082#1089#1090#1077' '#1103#1095#1077#1081#1082#1080)
      end
      object eQuotationUnit: TLabeledEdit
        Left = 86
        Top = 35
        Width = 291
        Height = 21
        EditLabel.Width = 70
        EditLabel.Height = 13
        EditLabel.Caption = #1045#1076'.'#1080#1079#1084#1077#1088#1077#1085#1080#1103
        LabelPosition = lpLeft
        TabOrder = 1
      end
      object chkDefaultVolumeParam: TCheckBox
        Left = 15
        Top = 72
        Width = 201
        Height = 17
        Caption = #1054#1073#1098#1105#1084#1085#1099#1081' '#1087#1072#1088#1072#1084#1077#1090#1088' '#1087#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102
        TabOrder = 2
      end
    end
  end
  object popmTable: TPopupMenu
    Left = 56
    Top = 296
    object mnHeader: TMenuItem
      Caption = 'Header'
      OnClick = mnItemClick
    end
    object mnName: TMenuItem
      Caption = 'Name'
      OnClick = mnItemClick
    end
    object mnUnit: TMenuItem
      Caption = 'Unit'
      OnClick = mnItemClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnuTestQuotation: TMenuItem
      Caption = #1058#1077#1089#1090
      OnClick = mnuTestQuotationClick
    end
  end
end