TUniDBGrid Clipboard до определенного символа

[Dinkin]

1 minute ago, Sherzod said:

Хмм, тестовый случай же на cpp.

Да, хотел Вам написать, но у меня только он есть. Я бы на делфи сделал. если было

1) Форма весь экран на ней TUniPageControl с одной вкладкой

2) При старте создается заготовленный фрейм с таблицей на этой вкладке.

Вот паскальный код самой таблицы

object RightGrid: TUniDBTreeGrid
  Left = 0
  Top = 0
  Width = 451
  Height = 305
  Hint = ''
  ClientEvents.ExtEvents.Strings = (
    
      'cellclick=function cellclick(sender, td, cellIndex, record, tr, ' +
      'rowIndex, e, eOpts)'#13#10'{'#13#10'      var el = Ext.get(td).select('#39'.x-gr' +
      'id-cell-inner'#39').elements[0];'#13#10'    if (el) {'#13#10'        sender.grid' +
      '.selectedValue = el.innerText'#13#10'    }'#13#10'}'
    'afterrender=function afterrender(sender, eOpts)'#13#10'{'#13#10'  //'#13#10'}')
  HeaderTitle = #1047#1072#1076#1072#1095#1080
  Align = alClient
  Font.Height = -13
  ParentFont = False
  TabOrder = 0
  LoadMask.Message = 'Loading data...'
  Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
  ToolButtons = <
    item
      ButtonId = 0
      ImageIndex = 10
      Hint = #1069#1082#1089#1087#1086#1088#1090' '#1074' Excel'
      ToolType = 'save'
    end>
  UseArrows = True
  BorderStyle = ubsNone
  IdParentField = 'id_parent'
  IdField = 'id'
  Columns = <
    item
      FieldName = 'number'
      Title.Alignment = taCenter
      Title.Caption = #1053#1086#1084#1077#1088
      Title.Font.Style = [fsBold]
      Width = 100
      Locked = True
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'id'
      Title.Caption = 'id'
      Width = 70
      Visible = False
      Locked = True
    end
    item
      FieldName = 'status'
      Title.Alignment = taCenter
      Title.Caption = #1057#1090#1072#1090#1091#1089
      Title.Font.Style = [fsBold]
      Width = 140
      Alignment = taCenter
      Locked = True
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'name'
      Title.Alignment = taCenter
      Title.Caption = #1054#1087#1080#1089#1072#1085#1080#1077
      Width = 400
      DisplayMemo = True
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'day'
      Title.Alignment = taCenter
      Title.Caption = #1044#1085#1080
      Width = 80
      Alignment = taCenter
      GroupHeader = #1057#1088#1086#1082#1080
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'start'
      Title.Alignment = taCenter
      Title.Caption = #1053#1072#1095#1072#1083#1086
      Width = 100
      Alignment = taCenter
      GroupHeader = #1057#1088#1086#1082#1080
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'finsh'
      Title.Alignment = taCenter
      Title.Caption = #1050#1086#1085#1077#1094
      Width = 100
      Alignment = taCenter
      GroupHeader = #1057#1088#1086#1082#1080
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'length'
      Title.Alignment = taCenter
      Title.Caption = ' '#1055#1088#1086#1081#1076#1077#1085#1086' %'
      Width = 94
      Alignment = taCenter
      GroupHeader = #1057#1088#1086#1082#1080
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'attach'
      Title.Alignment = taCenter
      Title.Caption = ' '
      Width = 76
      Alignment = taCenter
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'res'
      Title.Alignment = taCenter
      Title.Caption = #1056#1077#1089#1091#1088#1089
      Width = 350
      DisplayMemo = True
      Menu.MenuEnabled = False
      Menu.ColumnHideable = False
    end
    item
      FieldName = 'warning'
      Title.Caption = 'warning'
      Width = 64
      Visible = False
    end>
end