реструктуризация файлов, добавление вебчатов
This commit is contained in:
PC1\PTyTb
@@ -0,0 +1,346 @@
|
||||
object frCommands: TfrCommands
|
||||
Size.Width = 973.000000000000000000
|
||||
Size.Height = 705.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
object sgCommands: TStringGrid
|
||||
CanFocus = True
|
||||
ClipChildren = True
|
||||
Position.X = 5.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 540.000000000000000000
|
||||
Size.Height = 193.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 5
|
||||
RowCount = 0
|
||||
Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
|
||||
OnCellClick = sgCommandsCellClick
|
||||
Viewport.Width = 540.000000000000000000
|
||||
Viewport.Height = 193.000000000000000000
|
||||
object scCommand: TStringColumn
|
||||
Header = #1050#1086#1084#1072#1085#1076#1072
|
||||
HeaderSettings.TextSettings.WordWrap = False
|
||||
Size.Width = 134.000000000000000000
|
||||
end
|
||||
object scResponse: TStringColumn
|
||||
Header = #1054#1090#1074#1077#1090
|
||||
HeaderSettings.TextSettings.WordWrap = False
|
||||
Size.Width = 380.000000000000000000
|
||||
end
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Padding.Left = 5.000000000000000000
|
||||
Padding.Top = 20.000000000000000000
|
||||
Padding.Right = 5.000000000000000000
|
||||
Padding.Bottom = 5.000000000000000000
|
||||
Position.X = 544.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
Size.Width = 410.000000000000000000
|
||||
Size.Height = 442.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = #1050#1086#1085#1089#1090#1088#1091#1082#1090#1086#1088' '#1086#1090#1074#1077#1090#1072
|
||||
TabOrder = 0
|
||||
inline frContruct1: TfrContruct
|
||||
Align = Client
|
||||
Size.Width = 400.000000000000000000
|
||||
Size.Height = 417.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
inherited mResponse: TMemo
|
||||
Viewport.Width = 392.000000000000000000
|
||||
Viewport.Height = 161.000000000000000000
|
||||
end
|
||||
inherited GroupBox7: TGroupBox
|
||||
inherited btnAddUserName: TButton
|
||||
TabOrder = 37
|
||||
end
|
||||
inherited btnGetDateFollow: TButton
|
||||
TabOrder = 38
|
||||
end
|
||||
inherited btnGetAgeAccaunt: TButton
|
||||
TabOrder = 39
|
||||
end
|
||||
inherited btnCounterAddtoText: TButton
|
||||
TabOrder = 40
|
||||
end
|
||||
inherited cbCounterName: TComboBox
|
||||
TabOrder = 41
|
||||
end
|
||||
inherited btnGPT: TButton
|
||||
TabOrder = 42
|
||||
end
|
||||
inherited btnRandomUserName: TButton
|
||||
TabOrder = 43
|
||||
end
|
||||
inherited btnGetChannelStat: TButton
|
||||
TabOrder = 44
|
||||
end
|
||||
inherited btnAIPic: TButton
|
||||
TabOrder = 45
|
||||
end
|
||||
end
|
||||
inherited btnAddCommand: TButton
|
||||
OnClick = frContruct1btnAddCommandClick
|
||||
end
|
||||
inherited btnEditCommand: TButton
|
||||
OnClick = frContruct1btnEditCommandClick
|
||||
end
|
||||
inherited btnRmCommand: TButton
|
||||
OnClick = frContruct1btnRmCommandClick
|
||||
end
|
||||
object cbTextToSpeach: TCheckBox
|
||||
Position.X = 272.000000000000000000
|
||||
Position.Y = 8.000000000000000000
|
||||
TabOrder = 47
|
||||
Text = #1054#1079#1074#1091#1095#1082#1072' '#1087#1086#1089#1083#1077' !!!'
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupBox9: TGroupBox
|
||||
Padding.Left = 5.000000000000000000
|
||||
Padding.Top = 20.000000000000000000
|
||||
Padding.Right = 5.000000000000000000
|
||||
Padding.Bottom = 5.000000000000000000
|
||||
Position.X = 191.000000000000000000
|
||||
Position.Y = 209.000000000000000000
|
||||
Size.Width = 354.000000000000000000
|
||||
Size.Height = 241.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = #1056#1072#1085#1076#1086#1084#1085#1099#1077' '#1075#1088#1091#1087#1087#1099' '#1086#1090#1074#1077#1090#1086#1074
|
||||
TabOrder = 3
|
||||
inline frGroupsRequest1: TfrGroupsRequest
|
||||
Align = Client
|
||||
Size.Width = 344.000000000000000000
|
||||
Size.Height = 216.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
inherited lbRandomGroup: TListBox
|
||||
OnDblClick = frGroupsRequest1lbRandomGroupDblClick
|
||||
Viewport.Width = 117.000000000000000000
|
||||
Viewport.Height = 116.000000000000000000
|
||||
end
|
||||
inherited lbRandomRespons: TListBox
|
||||
Viewport.Width = 207.000000000000000000
|
||||
Viewport.Height = 116.000000000000000000
|
||||
end
|
||||
inherited btnRandomAdd: TButton
|
||||
TabOrder = 33
|
||||
end
|
||||
inherited btnRandomDel: TButton
|
||||
TabOrder = 34
|
||||
end
|
||||
inherited btnRmGroup: TButton
|
||||
TabOrder = 36
|
||||
end
|
||||
inherited Label4: TLabel
|
||||
TabOrder = 38
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupBox8: TGroupBox
|
||||
Padding.Left = 5.000000000000000000
|
||||
Padding.Top = 20.000000000000000000
|
||||
Padding.Right = 5.000000000000000000
|
||||
Padding.Bottom = 5.000000000000000000
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 209.000000000000000000
|
||||
Size.Width = 175.000000000000000000
|
||||
Size.Height = 241.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = #1056#1072#1085#1076#1086#1084#1085#1099#1077' '#1095#1080#1089#1083#1072
|
||||
TabOrder = 1
|
||||
object edtRandomName: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 3
|
||||
Text = 'RANDOM1'
|
||||
Position.X = 9.000000000000000000
|
||||
Position.Y = 176.000000000000000000
|
||||
Size.Width = 74.000000000000000000
|
||||
Size.Height = 21.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Left = 3
|
||||
Top = 514
|
||||
end
|
||||
object edtOt: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 4
|
||||
Text = '0'
|
||||
Position.X = 82.000000000000000000
|
||||
Position.Y = 176.000000000000000000
|
||||
Size.Width = 41.000000000000000000
|
||||
Size.Height = 21.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Left = 83
|
||||
Top = 514
|
||||
end
|
||||
object edtTo: TEdit
|
||||
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
||||
TabOrder = 5
|
||||
Text = '100'
|
||||
Position.X = 123.000000000000000000
|
||||
Position.Y = 176.000000000000000000
|
||||
Size.Width = 41.000000000000000000
|
||||
Size.Height = 21.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Left = 130
|
||||
Top = 514
|
||||
end
|
||||
object btnRandAdd: TButton
|
||||
Position.X = 9.000000000000000000
|
||||
Position.Y = 205.000000000000000000
|
||||
TabOrder = 31
|
||||
Text = #1044#1086#1073#1072#1074#1080#1090#1100
|
||||
TextSettings.Trimming = None
|
||||
OnClick = btnRandAddClick
|
||||
end
|
||||
object btnRandDel: TButton
|
||||
Position.X = 97.000000000000000000
|
||||
Position.Y = 205.000000000000000000
|
||||
Size.Width = 70.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 33
|
||||
Text = #1059#1076#1072#1083#1080#1090#1100
|
||||
TextSettings.Trimming = None
|
||||
OnClick = btnRandDelClick
|
||||
end
|
||||
object sgRandomInt: TStringGrid
|
||||
CanFocus = True
|
||||
ClipChildren = True
|
||||
Position.X = 9.000000000000000000
|
||||
Position.Y = 24.000000000000000000
|
||||
Size.Width = 157.000000000000000000
|
||||
Size.Height = 144.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 36
|
||||
RowCount = 0
|
||||
Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
|
||||
OnCellDblClick = sgRandomIntCellDblClick
|
||||
Viewport.Width = 157.000000000000000000
|
||||
Viewport.Height = 144.000000000000000000
|
||||
object scRIntName: TStringColumn
|
||||
Header = #1053#1072#1079#1074#1072#1085#1080#1077
|
||||
HeaderSettings.TextSettings.WordWrap = False
|
||||
Size.Width = 70.000000000000000000
|
||||
end
|
||||
object IntegerColumn1: TIntegerColumn
|
||||
Header = #1054#1090
|
||||
HeaderSettings.TextSettings.WordWrap = False
|
||||
Size.Width = 31.000000000000000000
|
||||
end
|
||||
object scRIntTo: TIntegerColumn
|
||||
Header = #1044#1086
|
||||
HeaderSettings.TextSettings.WordWrap = False
|
||||
Size.Width = 31.000000000000000000
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupBox11: TGroupBox
|
||||
Padding.Left = 10.000000000000000000
|
||||
Padding.Top = 20.000000000000000000
|
||||
Padding.Right = 10.000000000000000000
|
||||
Padding.Bottom = 10.000000000000000000
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 458.000000000000000000
|
||||
Size.Width = 313.000000000000000000
|
||||
Size.Height = 240.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = #1047#1074#1091#1082
|
||||
TabOrder = 4
|
||||
inline frsgSounds: TfrSimpleGrid
|
||||
Align = Client
|
||||
Hint = '||'
|
||||
Size.Width = 293.000000000000000000
|
||||
Size.Height = 210.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
inherited sg: TStringGrid
|
||||
Size.Width = 293.000000000000000000
|
||||
OnCellDblClick = frsgSoundssgCellDblClick
|
||||
Viewport.Width = 293.000000000000000000
|
||||
Viewport.Height = 149.000000000000000000
|
||||
inherited sgR2: TStringColumn
|
||||
Size.Width = 170.000000000000000000
|
||||
end
|
||||
end
|
||||
inherited edtFileName: TEdit
|
||||
Size.Width = 128.000000000000000000
|
||||
end
|
||||
inherited btnOpen: TButton
|
||||
Position.X = 258.000000000000000000
|
||||
end
|
||||
end
|
||||
end
|
||||
object GroupBox24: TGroupBox
|
||||
Padding.Left = 10.000000000000000000
|
||||
Padding.Top = 20.000000000000000000
|
||||
Padding.Right = 10.000000000000000000
|
||||
Padding.Bottom = 10.000000000000000000
|
||||
Position.X = 329.000000000000000000
|
||||
Position.Y = 458.000000000000000000
|
||||
Size.Width = 313.000000000000000000
|
||||
Size.Height = 241.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = #1060#1072#1081#1083#1099
|
||||
TabOrder = 2
|
||||
inline frsgFiles: TfrSimpleGrid
|
||||
Align = Client
|
||||
Hint = '|('
|
||||
Size.Width = 293.000000000000000000
|
||||
Size.Height = 211.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
inherited sg: TStringGrid
|
||||
Size.Width = 293.000000000000000000
|
||||
OnCellDblClick = frsgFilessgCellDblClick
|
||||
Viewport.Width = 293.000000000000000000
|
||||
Viewport.Height = 149.000000000000000000
|
||||
inherited sgR2: TStringColumn
|
||||
Size.Width = 170.000000000000000000
|
||||
end
|
||||
end
|
||||
inherited edtFileName: TEdit
|
||||
Size.Width = 128.000000000000000000
|
||||
end
|
||||
inherited btnOpen: TButton
|
||||
Position.X = 258.000000000000000000
|
||||
end
|
||||
end
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
Left = 744
|
||||
Top = 392
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Padding.Left = 10.000000000000000000
|
||||
Padding.Top = 20.000000000000000000
|
||||
Padding.Right = 10.000000000000000000
|
||||
Padding.Bottom = 10.000000000000000000
|
||||
Position.X = 650.000000000000000000
|
||||
Position.Y = 458.000000000000000000
|
||||
Size.Width = 313.000000000000000000
|
||||
Size.Height = 240.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
Text = #1053#1077#1081#1088#1086#1082#1086#1085#1089#1090#1088#1091#1082#1090#1086#1088
|
||||
TabOrder = 8
|
||||
inline frsgNeiro: TfrSimpleGrid
|
||||
Align = Client
|
||||
Hint = '<|'
|
||||
Size.Width = 293.000000000000000000
|
||||
Size.Height = 210.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
inherited sg: TStringGrid
|
||||
Size.Width = 293.000000000000000000
|
||||
OnCellDblClick = frsgNeirosgCellDblClick
|
||||
Viewport.Width = 293.000000000000000000
|
||||
Viewport.Height = 149.000000000000000000
|
||||
inherited sgR2: TStringColumn
|
||||
Header = #1047#1072#1087#1088#1086#1089
|
||||
Size.Width = 170.000000000000000000
|
||||
end
|
||||
end
|
||||
inherited edtFileName: TEdit
|
||||
Size.Width = 163.000000000000000000
|
||||
end
|
||||
inherited btnOpen: TButton
|
||||
Position.X = 258.000000000000000000
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user