добавил часть модулей, нужно переделать БД на records
This commit is contained in:
+11
-3
@@ -3,7 +3,7 @@ program TTW_Bot_app;
|
||||
uses
|
||||
System.StartUpCopy,
|
||||
FMX.Forms,
|
||||
uGeneral in 'uGeneral.pas' {Form1},
|
||||
uGeneral in 'uGeneral.pas' {TTW_Bot},
|
||||
fSettings in 'fSettings.pas' {frSettings: TFrame},
|
||||
fAI in 'fAI.pas' {frAI: TFrame},
|
||||
fNotify in 'fNotify.pas' {frNotify: TFrame},
|
||||
@@ -16,14 +16,22 @@ uses
|
||||
fColorSettings in 'fColorSettings.pas' {frColorSettings: TFrame},
|
||||
uCreateChat in 'uCreateChat.pas' {fCreateChat},
|
||||
fFontSettings in 'fFontSettings.pas' {frFontSettings: TFrame},
|
||||
uCreateNotify in 'uCreateNotify.pas' {fCreateNotify};
|
||||
uCreateNotify in 'uCreateNotify.pas' {fCreateNotify},
|
||||
uTWAuth in 'uTWAuth.pas',
|
||||
uTTWAPI in 'uTTWAPI.pas',
|
||||
uAPIDA in 'uAPIDA.pas',
|
||||
uShowText in 'uShowText.pas' {fShowText},
|
||||
uWSDA in 'uWSDA.pas',
|
||||
uQ in 'uQ.pas' {frmQ};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.CreateForm(TTTW_Bot, TTW_Bot);
|
||||
Application.CreateForm(TfCreateChat, fCreateChat);
|
||||
Application.CreateForm(TfCreateNotify, fCreateNotify);
|
||||
Application.CreateForm(TfShowText, fShowText);
|
||||
Application.CreateForm(TfrmQ, frmQ);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user