JSONView/DBDJsonViewFrame.dfm - master - YakuninAV/Convertors

JSONView/DBDJsonViewFrame.dfm
348 строк8 KB
YakuninAV
begin with gitflick
31 июл 2026, 15:21
31 июл 2026, 15:211dc0fc6
object frmJsonView: TfrmJsonView
  Left = 0
  Top = 0
  Width = 618
  Height = 501
  TabOrder = 0
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 618
    Height = 59
    Align = alTop
    Caption = 'pnlTop'
    TabOrder = 0
    object btnNew: TSpeedButton
      Left = 4
      Top = 17
      Width = 23
      Height = 22
      Caption = '+'
      OnClick = btnNewClick
    end
    object grpFrame: TGroupBox
      Left = 176
      Top = 8
      Width = 185
      Height = 45
      Caption = 'grpFrame'
      TabOrder = 0
    end
  end
  object pnlBot: TPanel
    Left = 0
    Top = 432
    Width = 618
    Height = 69
    Align = alBottom
    Caption = 'pnlBot'
    TabOrder = 1
  end
  object pgcJson: TPageControl
    Left = 0
    Top = 59
    Width = 618
    Height = 373
    ActivePage = tsTab
    Align = alClient
    TabOrder = 2
    OnChange = pgcJsonChange
    object tsTree: TTabSheet
      Caption = 'tsTree'
      object vstJSON: TVirtualStringTree
        Left = 0
        Top = 0
        Width = 610
        Height = 345
        Align = alClient
        Header.AutoSizeIndex = 0
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'Tahoma'
        Header.Font.Style = [fsBold, fsItalic, fsUnderline]
        Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
        Header.Style = hsPlates
        TabOrder = 0
        TreeOptions.SelectionOptions = [toFullRowSelect, toAlwaysSelectNode]
        OnDblClick = vstJSONDblClick
        OnGetText = vstJSONGetText
        Columns = <
          item
            Position = 0
            Width = 150
            WideText = 'Name'
          end
          item
            Position = 1
            WideText = 'NN'
          end
          item
            Position = 2
            Width = 250
            WideText = 'Value'
          end>
      end
    end
    object tsTab: TTabSheet
      Caption = 'tsTab'
      ImageIndex = 1
      object grdJSON: TDrawGrid
        Left = 0
        Top = 0
        Width = 610
        Height = 345
        Align = alClient
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing]
        PopupMenu = pmTab
        TabOrder = 0
        OnDrawCell = grdJSONDrawCell
      end
    end
    object tsJSON: TTabSheet
      Caption = 'tsJSON'
      ImageIndex = 2
      object SynEditJSON: TSynEdit
        Left = 0
        Top = 0
        Width = 610
        Height = 345
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        TabOrder = 0
        CodeFolding.CollapsedLineColor = clGrayText
        CodeFolding.FolderBarLinesColor = clGrayText
        CodeFolding.ShowCollapsedLine = True
        CodeFolding.IndentGuidesColor = clGray
        CodeFolding.IndentGuides = True
        UseCodeFolding = False
        Gutter.Font.Charset = DEFAULT_CHARSET
        Gutter.Font.Color = clWindowText
        Gutter.Font.Height = -11
        Gutter.Font.Name = 'Courier New'
        Gutter.Font.Style = []
        Highlighter = synjsnsyn1
        Lines.Strings = (
          'SynEditJSON')
        FontSmoothing = fsmNone
      end
    end
    object tsEdit: TTabSheet
      Caption = 'tsEdit'
      ImageIndex = 3
      object lbledtName: TLabeledEdit
        Left = 3
        Top = 15
        Width = 289
        Height = 21
        EditLabel.Width = 27
        EditLabel.Height = 13
        EditLabel.Caption = '&Name'
        TabOrder = 0
      end
      object lbledtValue: TLabeledEdit
        Left = 3
        Top = 60
        Width = 590
        Height = 21
        EditLabel.Width = 26
        EditLabel.Height = 13
        EditLabel.Caption = 'Value'
        TabOrder = 1
      end
    end
    object tsTabCfg: TTabSheet
      Caption = 'tsTabCfg'
      ImageIndex = 4
      OnShow = tsTabCfgShow
      DesignSize = (
        610
        345)
      object lblTabData: TLabel
        Left = 74
        Top = 222
        Width = 40
        Height = 13
        Caption = #1044#1072#1085#1085#1099#1077
      end
      object lblRowName: TLabel
        Left = 43
        Top = 245
        Width = 73
        Height = 13
        Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      end
      object lblUnit: TLabel
        Left = 44
        Top = 268
        Width = 70
        Height = 13
        Caption = #1045#1076'.'#1080#1079#1084#1077#1085#1077#1085#1080#1103
      end
      object lblRowID: TLabel
        Left = 77
        Top = 291
        Width = 37
        Height = 13
        Caption = #1057#1090#1088#1086#1082#1072
      end
      object lblBands: TLabel
        Left = 65
        Top = 314
        Width = 49
        Height = 13
        Caption = #1044#1080#1072#1087#1072#1079#1086#1085
      end
      object clrbxData: TColorBox
        Left = 120
        Top = 219
        Width = 97
        Height = 22
        TabOrder = 0
      end
      object clrbxRowName: TColorBox
        Left = 120
        Top = 242
        Width = 97
        Height = 22
        TabOrder = 1
      end
      object clrbxUnit: TColorBox
        Left = 120
        Top = 265
        Width = 97
        Height = 22
        TabOrder = 2
      end
      object clrbxRowID: TColorBox
        Left = 120
        Top = 288
        Width = 97
        Height = 22
        TabOrder = 3
      end
      object clrbxBands: TColorBox
        Left = 120
        Top = 311
        Width = 97
        Height = 22
        TabOrder = 4
      end
      object edtTabID: TEdit
        Left = 3
        Top = 3
        Width = 49
        Height = 21
        TabOrder = 5
        Text = 'edtTabID'
      end
      object edtDescrName: TEdit
        Left = 58
        Top = 3
        Width = 543
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 6
        Text = 'edtDescrName'
      end
      object chkRowID: TCheckBox
        Left = 8
        Top = 32
        Width = 97
        Height = 17
        Caption = 'chkRowID'
        TabOrder = 7
      end
      object edtCountR: TEdit
        Left = 3
        Top = 55
        Width = 57
        Height = 21
        TabOrder = 8
        Text = '0'
      end
      object edtCountC: TEdit
        Left = 3
        Top = 82
        Width = 57
        Height = 21
        TabOrder = 9
        Text = '0'
      end
      object udCountR: TUpDown
        Left = 60
        Top = 55
        Width = 16
        Height = 21
        Associate = edtCountR
        TabOrder = 10
      end
      object udCountC: TUpDown
        Left = 60
        Top = 82
        Width = 16
        Height = 21
        Associate = edtCountC
        TabOrder = 11
      end
    end
    object ts1: TTabSheet
      Caption = 'ts1'
      ImageIndex = 5
      inline framePIRTabDesctipor1: TframePIRTabDesctipor
        Left = 0
        Top = 0
        Width = 610
        Height = 345
        Align = alClient
        TabOrder = 0
        ExplicitWidth = 610
        ExplicitHeight = 345
        DesignSize = (
          610
          345)
        inherited edtName: TEdit
          Width = 538
          ExplicitWidth = 538
        end
      end
      object btnApplyChanges: TBitBtn
        Left = 520
        Top = 312
        Width = 75
        Height = 25
        Caption = 'Apply'
        TabOrder = 1
        OnClick = btnApplyChangesClick
      end
    end
  end
  object pmTab: TPopupMenu
    Left = 420
    Top = 59
    object mnuTop: TMenuItem
      Caption = 'Top'
      OnClick = mnuTopClick
    end
    object mnuLeft: TMenuItem
      Caption = 'Left'
    end
    object mnuRight: TMenuItem
      Caption = 'Right'
    end
    object mnuBottom: TMenuItem
      Caption = 'Bottom'
    end
  end
  object synjsnsyn1: TSynJSONSyn
    Options.AutoDetectEnabled = False
    Options.AutoDetectLineLimit = 0
    Options.Visible = False
    Left = 372
    Top = 131
  end
end