PTyTb/ttw_fmx_v10
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Добавил окна добавления интеграций с ОБС

Browse Source
This commit is contained in:
PC1\PTyTb
2025-08-06 09:21:43 +03:00
parent 7e77775cd4
commit d68064187d
16 changed files with 1518 additions and 1012 deletions
Download Patch File Download Diff File Expand all files Collapse all files
uGeneral.fmx
+144 -336
View File
@@ -1,13 +1,15 @@
object Form1: TForm1
Left = 0
Left = 480
Top = 0
Caption = 'Form1'
ClientHeight = 886
ClientWidth = 1042
Position = Designed
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
Left = 480
DesignerMasterStyle = 0
object V: TTabControl
Align = Client
@@ -15,7 +17,7 @@ object Form1: TForm1
Size.Width = 1042.000000000000000000
Size.Height = 744.000000000000000000
Size.PlatformDefault = False
TabIndex = 4
TabIndex = 2
TabOrder = 0
TabPosition = PlatformDefault
Sizes = (
@@ -50,76 +52,78 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1053#1072#1089#1090#1088#1086#1081#1082#1080
ExplicitSize.cx = 96.000000000000000000
ExplicitSize.cy = 26.000000000000000000
inline fSettings: TfrSettings
Align = Client
Size.Width = 1042.000000000000000000
Size.Height = 718.000000000000000000
Size.PlatformDefault = False
inherited GroupBox3: TGroupBox
inherited edtBotName: TEdit
OnExit = nil
end
inherited edtBotToken: TEdit
OnExit = nil
end
inherited edtChannel: TEdit
OnExit = nil
end
inherited btnGetToken: TButton
Images = ImageList1
ImageIndex = 10
end
inherited edtBotClientID: TEdit
OnExit = nil
end
inherited btnGetClientID: TButton
OnClick = nil
end
inherited btnOpenStream: TButton
Images = ImageList1
ImageIndex = 17
OnClick = nil
TabOrder = 33
end
inherited btnGetTokenStreamer: TButton
Images = ImageList1
ImageIndex = 10
TabOrder = 34
end
inherited edtBotTokenStreamer: TEdit
OnExit = nil
TabOrder = 35
end
inherited Label53: TLabel
TabOrder = 37
end
end
inherited GroupBox22: TGroupBox
inherited btnDAGetCode: TButton
Images = ImageList1
ImageIndex = 10
OnClick = nil
TabOrder = 43
end
inherited Label63: TLabel
TabOrder = 35
end
inherited edtDAClientID: TEdit
OnExit = nil
TabOrder = 38
end
inherited Label64: TLabel
TabOrder = 36
end
inherited edtDAClientSecret: TEdit
OnExit = nil
TabOrder = 37
end
inherited Label65: TLabel
TabOrder = 39
end
inherited edtDARedirectURL: TEdit
OnExit = nil
TabOrder = 40
end
inherited edtDACode: TEdit
OnExit = nil
TabOrder = 41
end
inherited Label66: TLabel
TabOrder = 42
end
inherited btnDAStart: TButton
Images = ImageList1
ImageIndex = 18
OnClick = nil
TabOrder = 44
end
inherited btnGetDADef: TButton
OnClick = nil
TabOrder = 45
end
end
inherited btnOpenRomaning: TButton
Images = ImageList1
ImageIndex = 14
Size.Width = 201.000000000000000000
OnClick = nil
end
inherited btnImportSettings: TButton
Images = ImageList1
@@ -127,7 +131,6 @@ object Form1: TForm1
Position.X = 8.000000000000000000
Position.Y = 351.000000000000000000
Size.Width = 201.000000000000000000
OnClick = nil
end
inherited btnExportSettings: TButton
Images = ImageList1
@@ -135,7 +138,6 @@ object Form1: TForm1
Position.X = 8.000000000000000000
Position.Y = 381.000000000000000000
Size.Width = 201.000000000000000000
OnClick = nil
end
inherited btnMaster: TButton
Images = ImageList1
@@ -143,7 +145,6 @@ object Form1: TForm1
Position.X = 8.000000000000000000
Position.Y = 411.000000000000000000
Size.Width = 201.000000000000000000
OnClick = nil
end
end
end
@@ -160,6 +161,8 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1053#1077#1081#1088#1086#1089#1077#1090#1080
ExplicitSize.cx = 96.000000000000000000
ExplicitSize.cy = 26.000000000000000000
inline frAI1: TfrAI
Align = Client
Size.Width = 1042.000000000000000000
@@ -169,56 +172,11 @@ object Form1: TForm1
Images = ImageList1
ImageIndex = 10
Size.Width = 145.000000000000000000
OnClick = nil
end
inherited edtAIP2: TEdit
OnExit = nil
end
inherited edtAIP1: TEdit
OnExit = nil
end
inherited edtGPTPrefix: TEdit
OnExit = nil
end
inherited GroupBox1: TGroupBox
inherited rbGC: TRadioButton
TabOrder = 41
OnChange = nil
end
inherited RBCustom: TRadioButton
TabOrder = 40
OnChange = nil
end
inherited rbDS: TRadioButton
TabOrder = 39
OnChange = nil
end
inherited rbCG: TRadioButton
TabOrder = 38
OnChange = nil
end
end
inherited edtAIP3: TEdit
OnExit = nil
end
inherited cbOllama: TCheckBox
OnChange = nil
end
inherited GroupBox2: TGroupBox
Position.X = 462.000000000000000000
inherited Label3: TLabel
TabOrder = 38
end
inherited Label4: TLabel
TabOrder = 39
end
inherited edtKandiKey: TEdit
TabOrder = 40
OnExit = nil
end
inherited edtKandiSecret: TEdit
TabOrder = 41
OnExit = nil
end
end
end
@@ -228,7 +186,7 @@ object Form1: TForm1
item
end>
TextSettings.Trimming = None
IsSelected = False
IsSelected = True
ImageIndex = 13
Size.Width = 78.000000000000000000
Size.Height = 26.000000000000000000
@@ -236,16 +194,16 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1063#1072#1090' '#1073#1086#1090
ExplicitSize.cx = 78.000000000000000000
ExplicitSize.cy = 26.000000000000000000
inline frCommands1: TfrCommands
Align = Client
Size.Width = 1042.000000000000000000
Size.Height = 718.000000000000000000
Size.PlatformDefault = False
inherited sgCommands: TStringGrid
TabOrder = 5
OnCellClick = nil
Viewport.Width = 606.000000000000000000
Viewport.Height = 193.000000000000000000
Viewport.Width = 602.000000000000000000
Viewport.Height = 168.000000000000000000
inherited scCommand: TStringColumn
Size.Width = 134.000000000000000000
end
@@ -255,24 +213,21 @@ object Form1: TForm1
end
inherited GroupBox1: TGroupBox
inherited mResponse: TMemo
Viewport.Width = 376.000000000000000000
Viewport.Height = 177.000000000000000000
Viewport.Width = 372.000000000000000000
Viewport.Height = 173.000000000000000000
end
inherited GroupBox7: TGroupBox
inherited btnAddUserName: TButton
Images = ImageList1
ImageIndex = 11
OnClick = nil
end
inherited btnGetDateFollow: TButton
Images = ImageList1
ImageIndex = 15
OnClick = nil
end
inherited btnGetAgeAccaunt: TButton
Images = ImageList1
ImageIndex = 15
OnClick = nil
end
inherited btnCounterAddtoText: TButton
Images = ImageList1
@@ -281,50 +236,40 @@ object Form1: TForm1
inherited btnGPT: TButton
Images = ImageList1
ImageIndex = 19
OnClick = nil
end
inherited btnRandomUserName: TButton
Images = ImageList1
ImageIndex = 11
OnClick = nil
end
inherited btnGetChannelStat: TButton
Images = ImageList1
ImageIndex = 20
Size.Width = 128.000000000000000000
OnClick = nil
end
inherited btnAIPic: TButton
Images = ImageList1
ImageIndex = 5
OnClick = nil
end
end
inherited btnAddCommand: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
end
inherited btnEditCommand: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
ImageIndex = 3
end
inherited btnRmCommand: TButton
Images = ImageList1
ImageIndex = 4
OnClick = nil
end
end
inherited GroupBox9: TGroupBox
inherited lbRandomGroup: TListBox
OnDblClick = nil
OnChange = nil
Viewport.Width = 117.000000000000000000
Viewport.Height = 116.000000000000000000
end
inherited lbRandomRespons: TListBox
OnClick = nil
Viewport.Width = 270.000000000000000000
Viewport.Height = 116.000000000000000000
end
@@ -332,42 +277,30 @@ object Form1: TForm1
Images = ImageList1
ImageIndex = 0
TabOrder = 36
OnClick = nil
end
inherited btnRandomDel: TButton
Images = ImageList1
ImageIndex = 12
TabOrder = 37
OnClick = nil
end
inherited btnRmGroup: TButton
Images = ImageList1
ImageIndex = 4
TabOrder = 38
OnClick = nil
end
inherited Label4: TLabel
TabOrder = 39
end
end
inherited GroupBox8: TGroupBox
inherited btnRandAdd: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 33
OnClick = nil
TabOrder = 32
end
inherited btnRandDel: TButton
Images = ImageList1
ImageIndex = 12
TabOrder = 34
OnClick = nil
end
inherited sgRandomInt: TStringGrid
OnCellClick = nil
OnCellDblClick = nil
Viewport.Width = 157.000000000000000000
Viewport.Height = 144.000000000000000000
TabOrder = 35
Viewport.Width = 153.000000000000000000
Viewport.Height = 119.000000000000000000
inherited scRIntName: TStringColumn
Size.Width = 70.000000000000000000
end
@@ -383,29 +316,23 @@ object Form1: TForm1
inherited btnSoundAdd: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
end
inherited btnSoundDel: TButton
Images = ImageList1
ImageIndex = 12
OnClick = nil
end
inherited btnSoundOpen: TButton
Images = ImageList1
ImageIndex = 14
Text = ''
OnClick = nil
end
inherited btnSoundTest: TButton
Images = ImageList1
ImageIndex = 25
OnClick = nil
end
inherited sgSAFiles: TStringGrid
OnCellClick = nil
OnCellDblClick = nil
Viewport.Width = 345.000000000000000000
Viewport.Height = 149.000000000000000000
Viewport.Width = 341.000000000000000000
Viewport.Height = 124.000000000000000000
inherited sgSAFile: TStringColumn
Size.Width = 220.000000000000000000
end
@@ -415,24 +342,19 @@ object Form1: TForm1
inherited btnTextAdd: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
end
inherited btnTextDel: TButton
Images = ImageList1
ImageIndex = 12
OnClick = nil
end
inherited btnTextOpen: TButton
Images = ImageList1
ImageIndex = 14
Text = ''
OnClick = nil
end
inherited sgTFiles: TStringGrid
OnCellClick = nil
OnCellDblClick = nil
Viewport.Width = 297.000000000000000000
Viewport.Height = 149.000000000000000000
Viewport.Width = 293.000000000000000000
Viewport.Height = 124.000000000000000000
inherited scTFileFile: TStringColumn
Size.Width = 170.000000000000000000
end
@@ -443,11 +365,10 @@ object Form1: TForm1
Top = 368
end
inherited GroupBox2: TGroupBox
TabOrder = 7
inherited sgAIGen: TStringGrid
OnCellClick = nil
OnCellDblClick = nil
Viewport.Width = 305.000000000000000000
Viewport.Height = 149.000000000000000000
Viewport.Width = 301.000000000000000000
Viewport.Height = 124.000000000000000000
inherited StringColumn2: TStringColumn
Size.Width = 180.000000000000000000
end
@@ -455,17 +376,14 @@ object Form1: TForm1
inherited btnAIGenAdd: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
end
inherited btnAIGenDel: TButton
Images = ImageList1
ImageIndex = 12
OnClick = nil
end
inherited btnAIGetTextUser: TButton
Images = ImageList1
ImageIndex = 11
OnClick = nil
end
end
end
@@ -483,13 +401,15 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1053#1072#1074#1099#1082#1080
ExplicitSize.cx = 79.000000000000000000
ExplicitSize.cy = 26.000000000000000000
end
object TabItem4: TTabItem
CustomIcon = <
item
end>
TextSettings.Trimming = None
IsSelected = True
IsSelected = False
ImageIndex = 10
Size.Width = 136.000000000000000000
Size.Height = 26.000000000000000000
@@ -497,109 +417,58 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1048#1085#1090#1077#1075#1088#1072#1094#1080#1103' '#1089' OBS'
inline frChatOBS1: TfrChatOBS
ExplicitSize.cx = 136.000000000000000000
ExplicitSize.cy = 26.000000000000000000
inline frOBS1: TfrOBS
Align = Top
Size.Width = 1042.000000000000000000
Size.Height = 408.000000000000000000
Size.Height = 345.000000000000000000
Size.PlatformDefault = False
inherited GroupBox13: TGroupBox
inherited Label41: TLabel
TabOrder = 8
end
inherited sbFontSize: TSpinBox
OnChange = nil
end
inherited ccbFontColor: TColorComboBox
TabOrder = 38
OnChange = nil
end
inherited Label49: TLabel
TabOrder = 35
end
inherited cbFontStyleDefault: TComboBox
OnChange = nil
end
inherited Label46: TLabel
TabOrder = 40
end
inherited ccbBColor: TColorComboBox
OnChange = nil
end
inherited Label1: TLabel
TabOrder = 36
end
inherited btnChangeBGColor: TButton
TabOrder = 43
end
end
inherited GroupBox12: TGroupBox
inherited cpStyleBlockColor: TColorPanel
OnChange = nil
end
inherited Label42: TLabel
TabOrder = 36
end
inherited ccbStyleBorderColor: TColorComboBox
OnChange = nil
end
inherited Label44: TLabel
TabOrder = 39
end
inherited sbStyleBlockPadding: TSpinBox
OnChange = nil
end
inherited sbStyleBlockBorderSize: TSpinBox
OnChange = nil
end
inherited Label48: TLabel
TabOrder = 40
end
end
inherited GroupBox10: TGroupBox
inherited Label27: TLabel
TabOrder = 1
end
inherited sbMaxMsg: TSpinBox
TabOrder = 3
OnChange = nil
end
inherited sbTimeMsg: TSpinBox
OnChange = nil
end
inherited Label39: TLabel
TabOrder = 5
end
inherited cbFreez: TCheckBox
TabOrder = 36
OnChange = nil
end
inherited sbWebServerPort: TSpinBox
OnChange = nil
end
end
inherited btnWebChatTest: TButton
OnClick = nil
end
inherited btnCreateWebChat: TButton
OnClick = nil
end
inherited btnDeleteWebChat: TButton
OnClick = nil
end
inherited sgWebChats: TStringGrid
Size.Width = 1042.000000000000000000
Size.Height = 282.000000000000000000
Viewport.Width = 1038.000000000000000000
Viewport.Height = 95.000000000000000000
inherited IntegerColumn1: TIntegerColumn
Size.Width = 80.000000000000000000
end
inherited IntegerColumn2: TIntegerColumn
Size.Width = 82.000000000000000000
end
inherited IntegerColumn5: TIntegerColumn
Size.Width = 80.000000000000000000
Viewport.Height = 257.000000000000000000
inherited StringColumn2: TStringColumn
Size.Width = 200.000000000000000000
end
end
inherited btnCreateOBSChat: TButton
Images = ImageList1
ImageIndex = 13
Size.Width = 94.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
OnClick = frChatOBS1btnCreateChatClick
end
inherited btnDeleteeChat: TButton
Images = ImageList1
ImageIndex = 4
Position.X = 954.000000000000000000
TabOrder = 3
end
inherited Label1: TLabel
TabOrder = 5
end
object btnCreateChat: TButton [4]
Images = ImageList1
ImageIndex = 5
Position.X = 406.000000000000000000
Position.Y = -80.000000000000000000
Size.Width = 153.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Text = #1057#1086#1079#1076#1072#1090#1100' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
TextSettings.Trimming = None
OnClick = frChatOBS1btnCreateChatClick
end
inherited btnCreateOBSNotify: TButton
Images = ImageList1
ImageIndex = 5
Position.X = 110.000000000000000000
OnClick = frOBS1btnCreateOBSNotifyClick
end
end
end
object TabItem6: TTabItem
@@ -615,106 +484,52 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1059#1074#1077#1076#1086#1084#1083#1077#1085#1080#1103
ExplicitSize.cx = 110.000000000000000000
ExplicitSize.cy = 26.000000000000000000
inline frNotify1: TfrNotify
Align = Client
Size.Width = 1042.000000000000000000
Size.Height = 718.000000000000000000
Size.PlatformDefault = False
inherited chEnNotify: TSwitch
OnSwitch = nil
end
inherited tbNotifyVolume: TTrackBar
OnExit = nil
end
inherited edtNotifyFileName: TEdit
OnExit = nil
end
inherited btnNotifyOpen: TButton
Images = ImageList1
ImageIndex = 14
Text = ''
OnClick = nil
end
inherited btnNotifyCheck: TButton
Images = ImageList1
ImageIndex = 25
Text = ''
OnClick = nil
end
inherited cbNotifyFileAgain1: TCheckBox
OnChange = nil
OnExit = nil
end
inherited btnNotifyCheckMod: TButton
Images = ImageList1
ImageIndex = 25
Text = ''
OnClick = nil
end
inherited btnNotifyOpenMod: TButton
Images = ImageList1
ImageIndex = 14
Text = ''
OnClick = nil
end
inherited edtNotifyFileNameMod: TEdit
OnExit = nil
end
inherited tbNotifyVolumeMod: TTrackBar
OnExit = nil
end
inherited chEnNotifyMod: TSwitch
OnSwitch = nil
end
inherited chEnNotifyVip: TSwitch
OnSwitch = nil
end
inherited tbNotifyVolumeVip: TTrackBar
OnExit = nil
end
inherited edtNotifyFileNameVip: TEdit
OnExit = nil
end
inherited btnNotifyOpenVip: TButton
Images = ImageList1
ImageIndex = 14
Text = ''
OnClick = nil
end
inherited btnNotifyCheckVip: TButton
Images = ImageList1
ImageIndex = 25
Text = ''
OnClick = nil
end
inherited cbNotifyFileAgain2: TCheckBox
OnChange = nil
OnExit = nil
end
inherited cbNotifyFileAgain3: TCheckBox
OnChange = nil
OnExit = nil
end
inherited btnNotifyCheckSub: TButton
Images = ImageList1
ImageIndex = 25
Text = ''
OnClick = nil
end
inherited btnNotifyOpenSub: TButton
Images = ImageList1
ImageIndex = 14
Text = ''
OnClick = nil
end
inherited edtNotifyFileNameSub: TEdit
OnExit = nil
end
inherited tbNotifyVolumeSub: TTrackBar
OnExit = nil
end
inherited chEnNotifySub: TSwitch
OnSwitch = nil
end
end
end
@@ -731,6 +546,8 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1047#1088#1080#1090#1077#1083#1080
ExplicitSize.cx = 81.000000000000000000
ExplicitSize.cy = 26.000000000000000000
end
object TabItem8: TTabItem
CustomIcon = <
@@ -745,6 +562,8 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1040#1074#1090#1086#1084#1072#1090#1080#1082#1072
ExplicitSize.cx = 101.000000000000000000
ExplicitSize.cy = 26.000000000000000000
inline frAutoActions1: TfrAutoActions
Align = Client
Size.Width = 1042.000000000000000000
@@ -754,25 +573,20 @@ object Form1: TForm1
inherited btnAddMessage: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
end
inherited btnRmMessage: TButton
Images = ImageList1
ImageIndex = 4
OnClick = nil
end
inherited btnEditMessage: TButton
Images = ImageList1
ImageIndex = 3
OnClick = nil
end
inherited btnNotifyTest: TButton
Images = ImageList1
ImageIndex = 25
OnClick = nil
end
inherited sgTimers: TStringGrid
OnEditingDone = nil
Viewport.Width = 463.000000000000000000
Viewport.Height = 225.000000000000000000
inherited scTimerMessage: TStringColumn
@@ -787,17 +601,14 @@ object Form1: TForm1
inherited btnBanWordsAdd: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
end
inherited btnBanWordsEdt: TButton
Images = ImageList1
ImageIndex = 3
OnClick = nil
end
inherited btnBanWordsDel: TButton
Images = ImageList1
ImageIndex = 4
OnClick = nil
end
inherited sgBanWords: TStringGrid
Viewport.Width = 297.000000000000000000
@@ -812,7 +623,6 @@ object Form1: TForm1
Position.X = 217.000000000000000000
Size.Width = 88.000000000000000000
Size.PlatformDefault = False
OnClick = nil
end
inherited edtBanWordsCheck: TEdit
Size.Width = 201.000000000000000000
@@ -822,12 +632,10 @@ object Form1: TForm1
inherited btnCounterAdd: TButton
Images = ImageList1
ImageIndex = 0
OnClick = nil
end
inherited btnCounterDelete: TButton
Images = ImageList1
ImageIndex = 4
OnClick = nil
end
inherited btnCounterP: TButton
Images = ImageList1
@@ -835,7 +643,6 @@ object Form1: TForm1
Position.X = 416.000000000000000000
Size.Width = 22.000000000000000000
Text = ''
OnClick = nil
end
inherited btnCounterM: TButton
Images = ImageList1
@@ -843,15 +650,12 @@ object Form1: TForm1
Position.X = 449.000000000000000000
Size.Width = 22.000000000000000000
Text = ''
OnClick = nil
end
inherited btnCounterEdit: TButton
Images = ImageList1
ImageIndex = 3
OnClick = nil
end
inherited sgCounter: TStringGrid
OnEditingDone = nil
Viewport.Width = 463.000000000000000000
Viewport.Height = 121.000000000000000000
inherited scCounterTrigger: TStringColumn
@@ -877,6 +681,8 @@ object Form1: TForm1
StyleLookup = ''
TabOrder = 0
Text = #1051#1086#1075
ExplicitSize.cx = 56.000000000000000000
ExplicitSize.cy = 26.000000000000000000
inline frLog1: TfrLog
Align = Client
Size.Width = 1042.000000000000000000
@@ -887,19 +693,6 @@ object Form1: TForm1
inherited btnClear: TButton
Images = ImageList1
ImageIndex = 4
OnClick = nil
end
inherited chkWARNING: TCheckBox
OnChange = nil
end
inherited chkERROR: TCheckBox
OnChange = nil
end
inherited chkDEBUG: TCheckBox
OnChange = nil
end
inherited chkINFO: TCheckBox
OnChange = nil
end
end
inherited sgLog: TStringGrid
@@ -1047,28 +840,7 @@ object Form1: TForm1
Position.X = 760.000000000000000000
Position.Y = 8.000000000000000000
Text = #1054#1090#1076#1077#1083#1100#1085#1086#1077' '#1089#1087#1072#1089#1080#1073#1086':'
TabOrder = 15
end
object Label4: TLabel
Position.X = 778.000000000000000000
Position.Y = 33.000000000000000000
Text = 'Incadence ('#1079#1072' '#1090#1077#1089#1090#1099')'
TabOrder = 14
OnDblClick = Label4DblClick
end
object Label13: TLabel
Position.X = 778.000000000000000000
Position.Y = 58.000000000000000000
Text = 'KuznecOGR ('#1079#1072' '#1090#1077#1089#1090#1099')'
TabOrder = 13
OnDblClick = Label13DblClick
end
object Label14: TLabel
Position.X = 778.000000000000000000
Position.Y = 83.000000000000000000
Text = 'Karacis ('#1079#1072' '#1080#1082#1086#1085#1082#1080')'
TabOrder = 12
OnDblClick = Label14DblClick
end
object cbTheme: TComboBox
ItemIndex = 0
@@ -1081,7 +853,7 @@ object Form1: TForm1
Size.Width = 228.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 36
TabOrder = 33
OnChange = cbThemeChange
end
object Label15: TLabel
@@ -1098,6 +870,42 @@ object Form1: TForm1
Text = #1058#1077#1084#1072
TabOrder = 0
end
object SpeedButton1: TSpeedButton
Images = ImageList1
ImageIndex = 11
Position.X = 760.000000000000000000
Position.Y = 33.000000000000000000
Size.Width = 141.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
Text = 'Incadence ('#1079#1072' '#1090#1077#1089#1090#1099')'
TextSettings.Trimming = None
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Images = ImageList1
ImageIndex = 11
Position.X = 760.000000000000000000
Position.Y = 63.000000000000000000
Size.Width = 141.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
Text = 'KuznecOGR ('#1079#1072' '#1090#1077#1089#1090#1099')'
TextSettings.Trimming = None
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Images = ImageList1
ImageIndex = 11
Position.X = 760.000000000000000000
Position.Y = 93.000000000000000000
Size.Width = 141.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
Text = 'Karacis ('#1079#1072' '#1080#1082#1086#1085#1082#1080')'
TextSettings.Trimming = None
OnClick = SpeedButton3Click
end
end
object ImageList1: TImageList
Source = <